<% sql="select * from config" rs.open sql,conn,1,1 %>

　

 　
用户名：
密　码：
验证码: <%=getcode1()%>
   

 QQ:2319968

http://www.3zha.com

小叶白龙许愿墙<%=rs("banben")%>
<% Function getcode1() Dim test On Error Resume Next Set test=Server.CreateObject("Adodb.Stream") Set test=Nothing If Err Then Dim zNum Randomize timer zNum = cint(8999*Rnd+1000) Session("GetCode") = zNum getcode1= Session("GetCode") Else getcode1= "" End If End Function %>