网站最上边浮动的工具条,广告条代码,可关闭

演示地址：http://www.souab.com/Demo/demoClose.html

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<title>网站最上边浮动的工具条,广告条代码,可关闭</title>
<style type="text/css">
<!--
body { margin: 0px;padding: 0px;text-align: center;}
td {FONT-SIZE: 12px; COLOR: #333;}
#toubiao {BORDER-BOTTOM: #e2e2e2 1px solid;}
a{text-decoration:none;color:#9CCAEF}
-->
</style>

阅读全文>>

评论(0) 引用(0) 浏览(374)
post by 不懂戀愛魚兒 | 2011年6月9日 | 归档于 [广告代码]
标签: 网站 function 浮动 广告 souab

asp获取当前网址函数

Function GetLocationURL() '获取当前页面的URL

Dim Url 

Dim ServerPort,ServerName,ScriptName,QueryString 

ServerName = Request.ServerVariables("SERVER_NAME") 

ServerPort = Request.ServerVariables("SERVER_PORT") 

ScriptName = Request.ServerVariables("SCRIPT_NAME") 

QueryString = Request.ServerVariables("QUERY_STRING") 

Url="http://">ServerName 

If ServerPort <> "80" Then Url = Url > ":" > ServerPort 

Url=Url>ScriptName 

If QueryString <>"" Then Url=Url>"?"> QueryString 

GetLocationURL=Url 

End Function

 

评论(1) 引用(0) 浏览(693)
post by 不懂戀愛魚兒 | 2011年5月22日 | 归档于 [Asp技术]
标签: asp function 函数 url

ASP中的加减乘除运算的方法

<%Dim a,b,c,num%>



例1:A+B的和是30<BR>

<%Sub Sum(a,b)                                '注: sub过程将a,b复给sum

num=a+b                                       ' 变量num=a+b

Response.Write(num)                           ' 输出变量num

End Sub                                       ' 结束过程

Call Sum(10,20)%>

<BR><BR>

阅读全文>>

评论(0) 引用(0) 浏览(395)
post by 不懂戀愛魚兒 | 2011年5月10日 | 归档于 [Asp技术]
标签: asp function 运算 sub response

ASP时间格式转化类

<%'******************************************************

'　作用：格式化时间(显示)。

'　参数：二个，一个是时间，另外一个是格式化的参数，也就是要用那种形式参数：n_Flag

' 1:"yyyy-mm-dd hh:mm:ss"

' 2:"yyyy-mm-dd"

' 3:"hh:mm:ss"

' 4:"yyyy年mm月dd日"

' 5:"yyyymmdd"

' 6:"10/1/2005"

' 7:"yyyymmddhhmm"

' 8:"mm月dd日

' 9:dd日

'　返回：相应的日期格式

'　注意：调用时要注意，使用本函数的相关返回值.

'******************************************************

Function Format_Time(s_Time, n_Flag)

Dim y, m, d, h, mi, s

阅读全文>>

评论(0) 引用(0) 浏览(324)
post by 不懂戀愛魚兒 | 2011年5月6日 | 归档于 [Asp技术]
标签: asp function 格式化 format

Asp添加标题时将第一个汉字的第一个拼音取出

Class CtoECls
Private Sub Class_Initialize()
End Sub
Private Sub Class_Terminate()
End Sub
function Tfirst(str) 'The first letter of Chinese character (汉字头字母)
dim codestr:codestr=Join(UTF8ToANSIArray(str), ",")
dim n,tt
tt=split(codestr,",")
for n=0 to ubound(tt)
Tfirst=Tfirst&getpychar(tt(n))
next
end function
  
Public Function LShift(ByVal lValue, ByVal iBit)
LShift = lValue * (2 ^ iBit)
End Function
  
'整合高低位字节为整数
Public Function MAKEWORD(ByVal iHigh, ByVal iLow)
MAKEWORD = (iHigh And &HFF) Or LShift((iLow And &HFF), 8)
End Function

阅读全文>>

评论(1) 引用(0) 浏览(352)
post by 不懂戀愛魚兒 | 2011年5月5日 | 归档于 [Asp技术]
标签: asp function 拼音 汉字 标题
sitemap