adminbanjipoweradd1.asp

来自「该系统测试用户信息主要由数据库直接输入」· ASP 代码 · 共 30 行

<!--#include file="conn.asp"-->
<%
  if session("adminname")="" then
  response.redirect "relogin.asp"
  end if

%>
<%
sql1="select * from tbnianji where nianji='"&request("nianji")&"'"
set rs1=server.createobject("adodb.recordset")
rs1.open sql1,conn,3,2

sql2="select * from tbbanji where banji='"&request("banji")&"'"
set rs2=server.createobject("adodb.recordset")
rs2.open sql2,conn,3,2

sql3="select * from tbpower where nianjiid="&rs1("nianjiid")&"  and banjiid="&rs2("banjiid")&""
set rs3=server.createobject("adodb.recordset")
rs3.open sql3,conn,3,2

if rs3.eof  then 
rs3.addnew
rs3("nianjiid")=rs1("nianjiid")
rs3("banjiid")=rs2("banjiid")

rs3.update
end if

response.redirect "adminbanjipower1.asp"
%>