czk2.asp

NT80购物系统1.0 系统说明： 1 界面美观大方

<!--#include file="conn.asp"-->

<%
if trim(request("ccc22"))="add" then 
paymoney=request("paymoneyj")
no=request("not")
set rs=server.createobject("adodb.recordset")
rs.open "select * from chong",conn,1,3
for i=1 to no
randomize
p=Int((3957184629*rnd))
k=Int((6243951646*rnd))
rs.addnew
rs("cname")=p
rs("pass")=k

rs("dianzhi")=paymoney
rs("zhuangtai")="尚未使用"
rs.update
next

rs.close
set rs=nothing
conn.close
set conn=nothing
response.redirect "czk.asp"
end if %>