常用ASP代码大全

⽹站建设基本常⽤代码

1.为按钮添加确认对话框

Button.Attributes.Add("onclick","return confirm('确认?')");

Button.Attributes.Add("onclick","if(confirm('确定?')){return true;}else{return false;}")

2.表格超连接列传递参数

'&name='<%#

DataBinder.Eval(Container.DataItem, "数据字段2")%>'/>

3.表格点击改变颜⾊

if (e.Item.ItemType == ListItemType.Item ||e.Item.ItemType == ListItemType.AlternatingItem)

{

e.Item.Attributes.Add("onclick","this.style.backgroundColor='#99cc00';this.style.color='buttontext';this.style.cursor='default';");

}

4.清空Cookie

Cookie.Expires=[DateTime];

Response.Cookies("UserName").Expires = 0;

5.Panel 横向滚动，纵向⾃动扩展

6.数字格式化

<%#Container.DataItem("price")%> 结果:500.0000格式化:500.00

<%#Container.DataItem("price","{0:￥#,##0.00}")%>

int i=123456;

string s=i.ToString("###,###.00");

7.⽇期格式化

<%# DataBinder.Eval(Container.DataItem,"Date")%> 结果:2004-8-11 19:44:28 格式化:2004-8-11

1.函数array()

功能:创建一个数组变量

格式:array(list)

参数:list 为数组变量中的每个数值列,中间用逗号间隔

例子:

<% i = array (“1”,”2”,”3”) %>

结果: i 被赋予为数组

2.函数Cint()

功能:将一表达式/其它类型的变量转换成整数类型(int)

格式:Cint(expression)

参数:expression 是任何有效的表达式/其它类型的变量

例子:

<%

f = ”234”

response.write cINT(f) + 2

%>

结果: 236

函数Cint()将字符”234”转换 成整数234.如果表达式为空, 或者无效时,返回值为0;

3.函数:Creatobject()

功能:创建及返回一个ActiveX对象.

格式:Creatobject(obname)

参数bname 是对象的名称

例子:

<%

Set con = Server.CreateObject(“ADODB.Connection”)

%>

结果: 4.函数Cstr()

功能:将一表达式/其它类型的变量转换成字符类型(string)

格式:Cstr(expression)

参数:expression是任何有效的表达式/其它类型的变量

例子:

<%

s = 3 + 2

response.write ”The result is: ” & cStr(s)

%>

结果:函数Cstr()将整数 5 转换 成字符”5”.

5.函数Date()

功能:返回当前系统(server端)的日期

格式: Date()

<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>

"/TR/xhtml1/DTD/xhtml1-transitional.dtd">

周升春聊天室

周升春聊天室

用户名：

密码：

style="border:0;color:#FF0000">

name="sub"sty

asp简单的搜索引擎代码

下⾯是库中URLINDEX表：URL和Keywords字段分别添加了索引.

URL ⽂本 (索引:有(⽆重复))

Title ⽂本

Description ⽂本

Summary ⽂本

Keywords ⽂本(索引:有(⽆重复))

doquery.asp

简单搜索引擎

LEFTMARGIN=0 TOPMARGIN=0>

Query:

<%

dim act

act=request("act")

if(act="search") then

QueryString = Request.form( "QueryString" )

QueryWords = Split( QueryString )

strIndent = "          "

' 如果搜索为空则返回

If QueryString = "" Then

Response.Redirect( "default.asp" )

End If

Session.timeout = 2

If IsObject(Session("sitesearch_conn")) Then

Set conn = Session("sitesearch_conn")

Else

Set conn = Server.CreateObject("ADODB.Connection")

conn.open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("database/SiteSearch.mdb"),"",""

Set Session("sitesearch_conn") = conn

End If

' 查询语句

sql = "SELECT * FROM [URLIndex] WHERE"

'搜索Description字段

sql = sql & " ( [Description] LIKE '%" & QueryWords( 0 ) & "%'" ' First

For i = LBound( QueryWords ) + 1 to UBound( QueryWords )

If QueryWords( i ) <> "" and UCase( QueryWords(i) ) <> "OR" and UCase( QueryWords(i) ) <> "AND" Then

If uCase( QueryWords( i-1 ) ) = "OR" Then

sql = sql & " OR [Description] LIKE '%" & QueryWords( i ) & "%'"

Else

sql = sql & " AND [Description] LIKE '%" & QueryWords( i ) & "%'"

End If

End If

Next

' 搜索Keywords字段

sql = sql & " ) OR ( [Keywords] LIKE '%" & QueryWords( 0 ) & "%'"

For i = LBound( QueryWords ) + 1 to UBound( QueryWords )

If QueryWords( i ) <> "" and UCase( QueryWords(i) ) <> "OR" and UCase( QueryWords(i) ) <> "AND" Then

If uCase( QueryWords( i-1 ) ) = "OR" Then

sql = sql & " OR [Keywords] LIKE '%" & QueryWords( i ) & "%'"

sql = sql & " OR [Keywords] LIKE '%" & QueryWords( i ) & "%'"

Else

sql = sql & " AND [Keywords] LIKE '%" & QueryWords( i ) & "%'"

End If

End If

Next

' 搜索Title字段

sql = sql & " ) OR ( [Title] LIKE '%" & QueryWords( 0 ) & "%'"

For i = LBound( QueryWords ) + 1 to UBound( QueryWords )

If QueryWords( i ) <> "" and UCase( QueryWords(i) ) <> "OR" and UCase( QueryWords(i) ) <> "AND" Then

If uCase( QueryWords( i-1 ) ) = "OR" Then

sql = sql & " OR [Title] LIKE '%" & QueryWords( i ) & "%'"

Else

sql = sql & " AND [Title] LIKE '%" & QueryWords( i ) & "%'"

End If

End If

Next

' 搜索Summary字段

sql = sql & " ) OR ( [Summary] LIKE '%" & QueryWords( 0 ) & "%'"

For i = LBound( QueryWords ) + 1 to UBound( QueryWords )

If QueryWords( i ) <> "" and UCase( QueryWords(i) ) <> "OR" and UCase( QueryWords(i) ) <> "AND" Then

If uCase( QueryWords( i-1 ) ) = "OR" Then

sql = sql & " OR [Summary] LIKE '%" & QueryWords( i ) & "%'"

Else

sql = sql & " AND [Summary] LIKE '%" & QueryWords( i ) & "%'"

End If

End If

Next

sql = sql & " )"

'

Set rs = Server.CreateObject("ADODB.Recordset")

rs.Open sql, conn, 3, 3

Response.Write "
你搜索的是: " & QueryString

Response.Write "
搜索的关键字: "

For i = LBound( QueryWords ) to UBound( QueryWords )

Response.Write "
" & strIndent & i & ": " & QueryWords( i )

Next

' Print the SQL String

Response.Write "
sql 语句 : " & sql

' Print the Results

Response.Write "
结果    :

"

On Error Resume Next

rs.MoveFirst

Do While Not rs.eof

Response.Write "
" & "" & rs.Fields("Title") & " - "

Response.Write rs.Fields("Description") & "
"

Response.Write "     URL: " & rs.Fields("URL") & ""

Response.Write "

---

"

rs.MoveNext

Loop

Response.Write "

end if

%>