add.asp

来自「很好的财务系统」· ASP 代码 · 共 35 行

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<% 
 Str="Provider=Microsoft.Jet.OLEDB.4.0; Data Source="+Server.MapPath("data.mdb")
 set conn=server.CreateObject("adodb.connection")
 conn.open Str

 userid=unescape(request("userid"))
 username=unescape(request("username"))
 if userid="" or username="" then
 conn.close
 set conn=nothing
 Remess="会员编号或会员姓名为空，添加失败！"
 response.Write escape(Remess)
 else
 rssql="select * from users where userid='"&userid&"'"
 set rs=server.CreateObject("adodb.recordset")
 rs.open rssql,conn,1,1
 
 if rs.eof and rs.bof then
 sql="insert into users(userid,username)values('"&userid&"','"&username&"')"
 conn.execute sql
 rs.close
 set rs=nothing
 conn.close
 set conn=nothing
 Remess="会号编号："&userid&"  会员姓名："&username&"  添加成功！"
 response.Write escape(Remess)
 else
 conn.close
 set conn=nothing
 Remess="会员编号 '"&userid&"' 已经存在，添加失败！"
 response.Write escape(Remess)
 end if 
 end if
 %>