|
4.3、系统用户注册管理模块 copyright paper51.com <%@LANGUAGE="VBSCRIPT"CODEPAGE="936"%> 内容来自论文无忧网 www.paper51.com <!--#includefile="Connections/conn.asp" --> http://www.paper51.com <% 内容来自论文无忧网 www.paper51.com DimMM_editAction 内容来自www.paper51.com MM_editAction= CStr(Request.ServerVariables("SCRIPT_NAME")) copyright paper51.com If(Request.QueryString <> "") Then copyright paper51.com MM_editAction = MM_editAction &"?" & Server.HTMLEncode(Request.QueryString) paper51.com End If http://www.paper51.com
' boolean to abort record edit copyright paper51.com DimMM_abortEdit 内容来自www.paper51.com MM_abortEdit= false 内容来自www.paper51.com %> 内容来自论文无忧网 www.paper51.com <% http://www.paper51.com
If (CStr(Request("MM_insert")) = "form1")Then copyright paper51.com If (Not MM_abortEdit) Then 内容来自论文无忧网 www.paper51.com ' executethe insert copyright paper51.com Dim MM_editCmd paper51.com Set MM_editCmd =Server.CreateObject ("ADODB.Command") http://www.paper51.com MM_editCmd.ActiveConnection= MM_conn_STRING 内容来自www.paper51.com
MM_editCmd.CommandText ="INSERT INTO [user] (username, password, type, mingcheng, sfz, dizi,youbian, dianhua) VALUES (?, ?, ?, ?, ?, ?, ?,?)" paper51.com
MM_editCmd.Prepared = true paper51.com MM_editCmd.Parameters.AppendMM_editCmd.CreateParameter("param1", 201, 1,50, Request.Form("username")) ' adLongVarChar 内容来自论文无忧网 www.paper51.com
MM_editCmd.Parameters.AppendMM_editCmd.CreateParameter("param2", 201, 1,50, Request.Form("password")) ' adLongVarChar 内容来自www.paper51.com MM_editCmd.Parameters.AppendMM_editCmd.CreateParameter("param3", 201, 1,50, Request.Form("type")) ' adLongVarChar 内容来自www.paper51.com MM_editCmd.Parameters.AppendMM_editCmd.CreateParameter("param4", 201, 1,50, Request.Form("mingcheng")) ' adLongVarChar http://www.paper51.com MM_editCmd.Parameters.AppendMM_editCmd.CreateParameter("param5", 201, 1,50, Request.Form("sfz")) ' adLongVarChar 内容来自论文无忧网 www.paper51.com
MM_editCmd.Parameters.AppendMM_editCmd.CreateParameter("param6", 201, 1,50, Request.Form("dizi")) ' adLongVarChar copyright paper51.com
MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param7", 201, 1, 50,Request.Form("youbian")) ' adLongVarChar http://www.paper51.com MM_editCmd.Parameters.AppendMM_editCmd.CreateParameter("param8", 201, 1,50, Request.Form("dianhua")) ' adLongVarChar paper51.com MM_editCmd.Execute 内容来自论文无忧网 www.paper51.com MM_editCmd.ActiveConnection.Close copyright paper51.com ' appendthe query string to the redirect URL 内容来自论文无忧网 www.paper51.com Dim MM_editRedirectUrl http://www.paper51.com MM_editRedirectUrl ="cg.htm" 内容来自www.paper51.com If (Request.QueryString<> "") Then http://www.paper51.com
If (InStr(1, MM_editRedirectUrl, "?", vbTextCompare) =0) Then copyright paper51.com
MM_editRedirectUrl = MM_editRedirectUrl & "?" &Request.QueryString http://www.paper51.com
Else copyright paper51.com
MM_editRedirectUrl = MM_editRedirectUrl & "&" &Request.QueryString 内容来自论文无忧网 www.paper51.com End If paper51.com
End If copyright paper51.com Response.Redirect(MM_editRedirectUrl) http://www.paper51.com
End If paper51.com End If 内容来自论文无忧网 www.paper51.com %> paper51.com
<html> paper51.com <head> 内容来自www.paper51.com
<meta http-equiv="Content-Type"content="text/html; charset=gb2312" /> paper51.com <title>用户注册-科研项目网上申报管理系统</title> http://www.paper51.com <styletype="text/css"> 内容来自论文无忧网 www.paper51.com
<!-- 内容来自论文无忧网 www.paper51.com .x { copyright paper51.com ................................................................. font-size: 12px; copyright paper51.com ................................................................. color: #000000; http://www.paper51.com
................................................................. text-decoration: none; paper51.com } 内容来自论文无忧网 www.paper51.com
body { copyright paper51.com
................................................................. background-image: url(img/bg1.gif); paper51.com } 内容来自www.paper51.com
--> copyright paper51.com
</style> http://www.paper51.com
</head> 内容来自www.paper51.com <bodymarginheight="0" marginwidth="0"topmargin="0" bottommargin="0" > copyright paper51.com
<tablewidth="760" border="0" align="center"cellpadding="0" cellspacing="0"> 内容来自论文无忧网 www.paper51.com <tr> http://www.paper51.com <td><imgsrc="img/1.jpg" width="760"height="160"></td> paper51.com
</tr> 内容来自论文无忧网 www.paper51.com
</table> 内容来自论文无忧网 www.paper51.com <tablewidth="760" border="0" align="center"cellpadding="0" cellspacing="0"bgcolor="#FFFFFF"> paper51.com <tr> 内容来自论文无忧网 www.paper51.com <tdalign="center" valign="top"><formname="form1" method="POST" action="<%=MM_editAction%>"> 内容来自论文无忧网 www.paper51.com
<tablewidth="400" border="0" cellpadding="0"cellspacing="0" class="x"> http://www.paper51.com <tr> 内容来自www.paper51.com <td height="25" colspan="2"align="center" valign="middle">用户注册</td> 内容来自www.paper51.com </tr> copyright paper51.com <tr> 内容来自www.paper51.com <td width="40%" valign="bottom">用户名:</td> paper51.com <td valign="bottom"><label> http://www.paper51.com
<input name="username" type="text"id="username"> paper51.com </label></td> 内容来自论文无忧网 www.paper51.com
</tr> 内容来自www.paper51.com <tr> paper51.com <td valign="bottom">密码:</td> 内容来自论文无忧网 www.paper51.com <td valign="bottom"><input name="password"type="text" id="password"></td> paper51.com </tr> copyright paper51.com <tr> 内容来自www.paper51.com
<tdvalign="bottom">类型:</td> 内容来自www.paper51.com <td valign="bottom"><label> copyright paper51.com <select name="type" id="type"> copyright paper51.com
<option value="个人" selected>个人</option> http://www.paper51.com <option value="所属单位">所属单位</option> paper51.com </select> 内容来自www.paper51.com </label></td> http://www.paper51.com </tr> 内容来自www.paper51.com
<tr> http://www.paper51.com <td valign="bottom">个人/单位名称:</td> 内容来自论文无忧网 www.paper51.com <td valign="bottom"><input name="mingcheng"type="text" id="mingcheng"></td> paper51.com </tr> copyright paper51.com <tr> 内容来自论文无忧网 www.paper51.com <td valign="bottom">身份证:</td> 内容来自www.paper51.com <td valign="bottom"><input name="sfz"type="text" id="sfz"></td> 内容来自论文无忧网 www.paper51.com
</tr> 内容来自www.paper51.com <tr> paper51.com <td valign="bottom">地址:</td> paper51.com <td valign="bottom"><input name="dizi"type="text" id="dizi"></td> paper51.com </tr> 内容来自论文无忧网 www.paper51.com
<tr> copyright paper51.com <tdvalign="bottom">邮编:</td> 内容来自论文无忧网 www.paper51.com <td valign="bottom"><input name="youbian"type="text" id="youbian"></td> http://www.paper51.com
</tr> paper51.com <tr> paper51.com <td valign="bottom">电话:</td> copyright paper51.com <td valign="bottom"><input name="dianhua"type="text" id="dianhua"></td> copyright paper51.com </tr> 内容来自论文无忧网 www.paper51.com <tr> http://www.paper51.com <td> </td> 内容来自www.paper51.com <td valign="bottom"><label> copyright paper51.com <input type="submit" name="Submit" value="注册"> paper51.com </label></td> paper51.com
</tr> copyright paper51.com </table> copyright paper51.com
http://www.paper51.com <inputtype="hidden" name="MM_insert" value="form1"> 内容来自www.paper51.com </form> 内容来自论文无忧网 www.paper51.com </td> 内容来自论文无忧网 www.paper51.com </tr> 内容来自www.paper51.com </table> 内容来自论文无忧网 www.paper51.com <!--#includefile="foot.htm"--> 内容来自论文无忧网 www.paper51.com </body> http://www.paper51.com </html> paper51.com |