web_reg.asp 中网景企业网站源码时尚版 2009.73码程序 - ASP源码程序

www.gusucode.com > 中网景企业网站源码时尚版 2009.73码程序 > admin/web_reg.asp

    <%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="opendb.asp" -->
<%
'Call CheckUserLogin(username)
Call CheckAdmin()
Call CnkAdminRight(9)

dim action,dm,rc
action=Trim(Request.Form("action"))
if action="modi" then
conn.execute("update cnk_config set Regcode='"&Trim(Request.Form("Regcode"))&"'")
end if
dm=GetCnkConfig("SiteUrl")
rc=GetCnkConfig("Regcode")
%>
<html>

<head>
<title></title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="admin.css" rel="stylesheet" type="text/css">
<script language="javascript" src="inc/cnkgl.js"></script>
</head>

<body>
<div class="cnkbox">
 <div class="title">请输入注册码</div>
 <div class="content" align="center">
   <form name="form1" method="post" action="">
     <label><script src="http://www.websys.cn/chkreg.asp?dm=<%= dm %>&rc=<%= rc %>"></script><br>
       <textarea name="Regcode" cols="70" rows="12" class="input" id="Regcode"><%= rc %></textarea>
     </label>
     <br>
     <label> <br>
     <input name="action" type="hidden" id="action" value="modi">
     <input name="Submit" type="submit" class="button" value="提交">
     </label>
   </form>
  </div>
</div>

</body>
</html>
<% 
conn.close 
set conn=nothing 
%>