ASP中的VBscript种种用法

1、转换时间类型:

<%=datevalue(rs("fbsj"))%>

上面的代码中rs("fbsj")从数据库存中取得的时间字段值,它是长时间类型的
使用datavalue(rs("fbsj"))进行转换!

2、取字符串中的字符操作
 一、从字符串左边取出2个字符:

1 dim stra
2 stra ="welcome"
3 stra=left(stra,2)
4 response.write(stra)

二、从字符串右边取出3个字符:

1 dim stab
2 strb="come on baby"
3 strb=right(strb,3)
4 response.write(strb)

3、删除数据:

1<%
2If Request("Action")="Del" Then
3    Conn.Execute("Delete From dwzp Where did="&Request.querystring("did"))
4    Response.Redirect "zhaopingManager.asp?cid="&request.querystring("cid")
5    response.end
6End If
7%>

4、将数据库的值填充至table的做法:

<%
cid=request.QueryString("cid")
set rs=server.CreateObject("adodb.recordset")
strsql="select * from dwzp where cid="&cid
rs.open strsql,conn,1,3

%>
<table width="600px" border="0" cellspacing="0" cellpadding="0">
<tr class="trtitle">
<td width="120px">
招骋职位
</td>

<td>
性别要求
</td>
<td>
年龄要求
</td>
<td>
学历要求
</td>
<td>
工作地点
</td>
<td>
发布时间
</td>
<td>
删除
</td>
</tr>
<% 
do while not rs.eof 
strzpzw=rs("zpzw")
if len(strzpzw)>5 then
strzpzw=left(strzpzw,5)&""
end if
%>
<tr>
<td >
<a href="#" onClick="window.open('Editzhaopin.asp?did=<%=rs("did")%>','','width=640,height=580,scrollbars=yes')">
<%=strzpzw%>
</a>
</td>

<td>
<%=rs("xbyq")%>
</td>
<td>
<%=rs("nlyq")%>
</td>
<td>
<%=rs("xlyq")%>
</td>
<td>
<%=rs("gzdd")%>
</td>
<td>
<%=datevalue(rs("fbsj"))%>
</td>
<td>
<a href="?Action=Del&did=<%=rs("did")%>&cid=<%=cid%>" OnClick="return ConfirmDel();">删除</a>
</td>
</tr>
<%
rs.movenext
loop
rs.close

%>
</table>

5.数据库链接对象(将如下代码拷至conn.asp页面中,单独的作为链接对象)
其他页面要用的时候用<!--#include file="conn.asp"-->放至页面顶部就可以调用了

 1 <%
 2 dim conn,connstr,db
 3 db="databases/syb.mdb"
 4 Set conn = Server.CreateObject("ADODB.Connection")
 5 connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(""&db&"")
 6 conn.Open connstr
 7 sub closedb()
 8     conn.close
 9     set conn=nothing
10 end sub
11 %>

6、修改数据

 1 <!--#include file="conn.asp"-->
 2 <%
 3 did=request.querystring("did")
 4 strsql="select * from dwzp where did="&did
 5 set rs=server.CreateObject("Adodb.Recordset")
 6 rs.open strsql,conn,2,2
 7 if request.QueryString("action")="Modify" then
 8 txtzpzw=request("txtzpzw")
 9 txtzpzy=request("txtzpzy")
10 txtzyyq=request("txtzyyq")
11 txtsex=request("txtsex")
12 txtage=request("txtagestart")&"-"&request("txtageend")
13 txtxlyq=request("txtxlyq")
14 txthkdz=request("txthkdz")
15 txtgzdz=request("txtgzdz")
16 txtgznx=request("txtgznx")
17 txtyx=request("txtyx")
18 txtgzfs=request("txtgzfs")
19 txtqtyq=request("txtqtyq")
20 rs("zpzw")=txtzpzw
21 rs("zpzy")=txtzpzy
22 rs("zyyq")=txtzyyq
23 rs("xbyq")=txtsex
24 rs("nlyq")=txtage
25 rs("xlyq")=txtxlyq
26 rs("hkszd")=txthkdz
27 rs("gzdd")=txtgzdz
28 rs("gznx")=txtgznx
29 rs("yx")=txtyx
30 rs("gzfs")=txtgzfs
31 rs("qtyq")=txtqtyq
32 rs.update
33 rs.close
34 Response.write "<Script>alert('企业职位招骋修改成功！');opener.location.reload();window.close();</Script>"
35 response.end
36 end if
37 %>
38 
39 如果不是修改的话将取的数据填充table中
40 <tr>
41       <td>&nbsp;</td>
42       <td>*职业要求</td>
43       <td colspan="3"><textarea name="txtzyyq" cols="50" rows="5" id="txtzyyq"><%=rs("zyyq")%></textarea></td>
44     </tr>
45     <tr>
46       <td>&nbsp;</td>
47       <td>*性别要求</td>
48       <td width="182"><select name="txtsex" size="1" id="txtsex">
49       <option value="<%=rs("xbyq")%>" selected="selected"><%=rs("xbyq")%></option>
50         <option value="不限" >不限</option>
51         <option value="男">男</option>
52         <option value="女">女</option>
53       </select>      </td>
54       <td width="82">*年龄要求</td>
55       <td width="216"><input name="txtagestart" type="text" id="txtagestart" size="3" maxlength="2" value="<%=left(rs("nlyq"),2)%>"/>
56         至
57         <input name="txtageend" type="text" id="txtageend" size="3" maxlength="2" value="<%=right(rs("nlyq"),2)%>" /></td>
58     </tr>
59     <tr>
60       <td>&nbsp;</td>
61       <td>*学历要求</td>
62       <td><select name="txtxlyq" size="1" id="txtxlyq">
63         <option value="不限">不限</option>
64         <option value="<%=rs("xlyq")%>" selected="selected"><%=rs("xlyq")%></option>
65         <option value="高中、技校">高中、技校</option>
66         <option value="中专">中专</option>
67         <option value="大专">大专</option>
68         <option value="本科">本科</option>
69         <option value="硕士">硕士</option>
70         <option value="博士">博士</option>
71       
72       </select>      </td>
73 
74 

7、添加数据

 1<!--#include file="conn.asp"-->
 2<!--#include file="sybadmin/md5.asp"-->
 3<%
 4cid=request.QueryString("cid")
 5txtzpzw=request("txtzpzw")
 6txtzpzy=request("txtzpzy")
 7txtzyyq=request("txtzyyq")
 8txtsex=request("txtsex")
 9txtage=request("txtagestart")&"-"&request("txtageend")
10txtxlyq=request("txtxlyq")
11txthkdz=request("txthkdz")
12txtgzdz=request("txtgzdz")
13txtgznx=request("txtgznx")
14txtyx=request("txtyx")
15txtgzfs=request("txtgzfs")
16txtqtyq=request("txtqtyq")
17set rs=server.CreateObject("adodb.recordset")
18sqlstr="select * from dwzp"
19rs.open sqlstr,conn,1,3
20rs.addnew
21rs("cid")=cid
22rs("zpzw")=txtzpzw
23rs("zpzy")=txtzpzy
24rs("zyyq")=txtzyyq
25rs("xbyq")=txtsex
26rs("nlyq")=txtage
27rs("xlyq")=txtxlyq
28rs("hkszd")=txthkdz
29rs("gzdd")=txtgzdz
30rs("gznx")=txtgznx
31rs("yx")=txtyx
32rs("gzfs")=txtgzfs
33rs("qtyq")=txtqtyq
34rs("fbsj")=now()
35rs.update
36response.Write"<script>alert('招骋职位发布成功！');window.location.href('qymain.asp?cid="&rs("cid")&"')</script>"
37%>

8、取参数的值

1session("username")
2request.querystring("id")
3request("id")
4request.form("文本框名")
5

9、弹出窗口操作完后，如何更新主页面

1 Response.write "<Script>alert('企业职位招骋修改成功！');opener.location.reload();window.close();</Script>"
2 response.end

10、向弹出窗口传递值

1<a href="#" onClick="window.open('Editzhaopin.asp?did=<%=rs("did")%>','','width=640,height=580,scrollbars=yes')">
2<%=strzpzw%>
3</a>