rolecode_regist.asp

ASP程序实现的科技期刊系统

<!--#include file="../Include/TimeOut.asp"-->
<!--#include file="../Include/AdoConn.asp"-->
<!--#include file="../Include/online.asp"-->
<%
'接收传来的变量
srtsql=Request.QueryString ("strsql")
edit=Request.QueryString ("edit")
page=Cstr(Request.QueryString ("page"))

'接收表单数据
roleName=request("roleName")
roleCode=request("roleCode")

'处理修改页面部分
if edit="edit" then
roleCode=request("roleCode")

strsql="update XT_TC_role set 角色名称="+"'"+roleName+"'"+" where 角色编码="+"'"+roleCode+"'"
		conn.Execute strsql,1
Response.Write roleName&"已修改成功!<br>角色编码为:"&roleCode
Response.Write "<a href=roleCode_EditList.asp?strsql="+server.URLEncode ( Request.QueryString("strsql"))+"&page="+Cstr(page)+">按此返回列表</a>"
else

set rst2=server.CreateObject ("ADODB.recordset")
StrSQL="select 角色编码 from XT_TC_role where 角色编码='"&roleCode&"'"
rst2.CursorType =3
rst2.CursorLocation =3
rst2.LockType =2
rst2.Open strsql,strconn
if not rst2.EOF then
	Response.Write "这个角色编码已经存在，<a href=roleCode_Edit.asp?strsql="+server.URLEncode ( Request.QueryString("strsql"))+"&page="+Cstr(page)+">请重新注册!</a> "
	Response.End 
end if

%>
<%
'用户信息写入数据库
StrSQL="insert into XT_TC_role(角色编码,角色名称) values ('"&roleCode&"','"&roleName&"')"
conn.Execute StrSQL
conn.close
set conn=nothing

Response.Write roleName&"已注册成功!<br>角色编码为:"&roleCode
Response.Write "<a href=roleCode_EditList.asp?strsql="+server.URLEncode ( Request.QueryString("strsql"))+"&page="+Cstr(page)+">按此返回列表</a>"

end if
%>
<script language="vbscript">
function back(i)
history.go(i)
end function
</script>