addinfo.asp

来自「一个动态域名转发的客户端,asp+access+软件希望多多交流」· ASP 代码 · 共 47 行

ASP

47 行

<html>

<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>add infomation</title>
</head>

<body>
<!--#include file="conn.asp"-->
<%
dim rs,sql,username,password,regcode,active,total,i
for i=0 to 10
   username="test"&cstr(i)
   password="test"&cstr(i) 
   regcode ="cd37ycs_2005011"&cstr(i)
   active  ="yes"
   
   sql="select * from reguser"
   set rs=server.createobject("ADODB.RecordSet")
   rs.open sql,conn,1,3
   total=rs.recordcount
   rs.close
   
   response.write "当前系统中已有注册用户数量："&total&"<br>" 
   sql="select * from reguser where username='"&username&"'"
   'set rs=server.createobject("ADODB.RecordSet")
   rs.open sql,conn,1,3
   if rs.eof and rs.bof then
      rs.addnew
      rs("username")=username
      rs("password")=password 
      rs("regcode") =regcode
      rs("active")  =active
      rs.update
      rs.close
      set rs=nothing
      response.write "你已经成功添加了一条用户信息！用户名是：[ "&username&" ]"
   else
      response.write "你输入的用户名称[ "&username&" ]已经存在！"
      'response.end
   end if
next
call closeconn()
%>
</body>
</html>

addinfo.asp - 源码说明

本页面展示了「一个动态域名转发的客户端,asp+access+软件希望多多交流」中的 addinfo.asp 源码文件，采用 ASP 编程语言编写，共 47 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫开发者社区收录了大量与动态域名相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

复制代码Ctrl + C

搜索代码Ctrl + F

全屏模式F11

增大字号Ctrl + =

减小字号Ctrl + -

显示快捷键?