www.gusucode.com > 中网景企业网站管理系统 2008源码程序 > 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 %>