论文无忧网提供:计算机毕业论文范文|计算机毕业设计|计算机毕业论文
栏目导航 ASP JSP .NET VB6.0 JAVA VC VF DELPHI PB 计算机网络 计算机科学与技术 PHP 安卓APP 其他 C# 代写论文
当前位置: > 计算机 > 计算机科学与技术 >

A450科研项目网上申报管理系统论文

4.3、系统用户注册管理模块

http://www.paper51.com

<%@LANGUAGE="VBSCRIPT"CODEPAGE="936"%>

paper51.com

<!--#includefile="Connections/conn.asp" -->

内容来自论文无忧网 www.paper51.com

<% paper51.com

DimMM_editAction copyright paper51.com

MM_editAction= CStr(Request.ServerVariables("SCRIPT_NAME")) copyright paper51.com

If(Request.QueryString <> "") Then 内容来自论文无忧网 www.paper51.com

  MM_editAction = MM_editAction &"?" & Server.HTMLEncode(Request.QueryString) 内容来自论文无忧网 www.paper51.com

End If

内容来自论文无忧网 www.paper51.com

' boolean to abort record edit http://www.paper51.com

DimMM_abortEdit

内容来自论文无忧网 www.paper51.com

MM_abortEdit= false

paper51.com

%>

内容来自www.paper51.com

<% http://www.paper51.com

If (CStr(Request("MM_insert")) = "form1")Then copyright paper51.com

  If (Not MM_abortEdit) Then http://www.paper51.com

    ' executethe insert

http://www.paper51.com

    Dim MM_editCmd

内容来自论文无忧网 www.paper51.com

    Set MM_editCmd =Server.CreateObject ("ADODB.Command")

内容来自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 内容来自www.paper51.com

    MM_editCmd.Parameters.AppendMM_editCmd.CreateParameter("param1", 201, 1,50, Request.Form("username")) ' adLongVarChar

copyright paper51.com

    MM_editCmd.Parameters.AppendMM_editCmd.CreateParameter("param2", 201, 1,50, Request.Form("password")) ' adLongVarChar http://www.paper51.com

    MM_editCmd.Parameters.AppendMM_editCmd.CreateParameter("param3", 201, 1,50, Request.Form("type")) ' adLongVarChar

http://www.paper51.com

    MM_editCmd.Parameters.AppendMM_editCmd.CreateParameter("param4", 201, 1,50, Request.Form("mingcheng")) ' adLongVarChar 内容来自论文无忧网 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

http://www.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 http://www.paper51.com

    MM_editCmd.Execute

http://www.paper51.com

   MM_editCmd.ActiveConnection.Close

paper51.com

    ' appendthe query string to the redirect URL paper51.com

    Dim MM_editRedirectUrl

内容来自www.paper51.com

    MM_editRedirectUrl ="cg.htm" 内容来自www.paper51.com

    If (Request.QueryString<> "") Then

copyright paper51.com

      If (InStr(1, MM_editRedirectUrl, "?", vbTextCompare) =0) Then

paper51.com

       MM_editRedirectUrl = MM_editRedirectUrl & "?" &Request.QueryString

http://www.paper51.com

      Else http://www.paper51.com

       MM_editRedirectUrl = MM_editRedirectUrl & "&" &Request.QueryString 内容来自论文无忧网 www.paper51.com

      End If http://www.paper51.com

    End If paper51.com

    Response.Redirect(MM_editRedirectUrl)

copyright paper51.com

  End If http://www.paper51.com

End If http://www.paper51.com

%> paper51.com

<html> paper51.com

<head> copyright paper51.com

<meta http-equiv="Content-Type"content="text/html; charset=gb2312" /> 内容来自www.paper51.com

<title>用户注册-科研项目网上申报管理系统</title>

内容来自www.paper51.com

<styletype="text/css"> 内容来自www.paper51.com

<!-- http://www.paper51.com

.x {

内容来自www.paper51.com

................................................................. font-size: 12px; copyright paper51.com

................................................................. color: #000000;

内容来自论文无忧网 www.paper51.com

................................................................. text-decoration: none; http://www.paper51.com

}

内容来自www.paper51.com

body {

内容来自www.paper51.com

................................................................. background-image: url(img/bg1.gif);

内容来自论文无忧网 www.paper51.com

} 内容来自www.paper51.com

--> paper51.com

</style> paper51.com

</head>

内容来自www.paper51.com

<bodymarginheight="0"  marginwidth="0"topmargin="0" bottommargin="0" >

http://www.paper51.com

<tablewidth="760" border="0" align="center"cellpadding="0" cellspacing="0"> 内容来自论文无忧网 www.paper51.com

  <tr>

内容来自论文无忧网 www.paper51.com

    <td><imgsrc="img/1.jpg" width="760"height="160"></td>

http://www.paper51.com

  </tr>

copyright paper51.com

</table> http://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%>"> copyright paper51.com

      <tablewidth="400" border="0" cellpadding="0"cellspacing="0" class="x">

内容来自www.paper51.com

        <tr>

http://www.paper51.com

         <td height="25" colspan="2"align="center" valign="middle">用户注册</td> 内容来自www.paper51.com

         </tr>

内容来自www.paper51.com

        <tr>

paper51.com

         <td width="40%" valign="bottom">用户名:</td>

copyright paper51.com

         <td valign="bottom"><label> copyright paper51.com

           <input name="username" type="text"id="username"> http://www.paper51.com

         </label></td> 内容来自论文无忧网 www.paper51.com

       </tr> paper51.com

        <tr>

paper51.com

         <td valign="bottom">密码:</td> copyright paper51.com

         <td valign="bottom"><input name="password"type="text" id="password"></td>

http://www.paper51.com

       </tr> http://www.paper51.com

        <tr>

paper51.com

          <tdvalign="bottom">类型:</td>

paper51.com

         <td valign="bottom"><label>

内容来自论文无忧网 www.paper51.com

           <select name="type" id="type">

http://www.paper51.com

             <option value="个人" selected>个人</option> 内容来自www.paper51.com

             <option value="所属单位">所属单位</option>

内容来自www.paper51.com

                                   </select>

http://www.paper51.com

         </label></td> copyright paper51.com

       </tr>

copyright paper51.com

        <tr> 内容来自论文无忧网 www.paper51.com

         <td valign="bottom">个人/单位名称:</td> copyright paper51.com

         <td valign="bottom"><input name="mingcheng"type="text" id="mingcheng"></td>

copyright paper51.com

       </tr> paper51.com

        <tr>

内容来自www.paper51.com

         <td valign="bottom">身份证:</td>

http://www.paper51.com

         <td valign="bottom"><input name="sfz"type="text" id="sfz"></td>

内容来自论文无忧网 www.paper51.com

       </tr> paper51.com

        <tr> copyright paper51.com

         <td valign="bottom">地址:</td> 内容来自论文无忧网 www.paper51.com

         <td valign="bottom"><input name="dizi"type="text" id="dizi"></td> http://www.paper51.com

       </tr> 内容来自www.paper51.com

        <tr>

http://www.paper51.com

         <tdvalign="bottom">邮编:</td>

内容来自论文无忧网 www.paper51.com

         <td valign="bottom"><input name="youbian"type="text" id="youbian"></td>

内容来自www.paper51.com

       </tr> 内容来自www.paper51.com

        <tr> 内容来自www.paper51.com

         <td valign="bottom">电话:</td> 内容来自www.paper51.com

         <td valign="bottom"><input name="dianhua"type="text" id="dianhua"></td>

内容来自论文无忧网 www.paper51.com

       </tr> 内容来自www.paper51.com

        <tr>

内容来自论文无忧网 www.paper51.com

         <td>&nbsp;</td> 内容来自论文无忧网 www.paper51.com

         <td valign="bottom"><label>

paper51.com

           <input type="submit" name="Submit" value="注册">

内容来自www.paper51.com

         </label></td> http://www.paper51.com

       </tr> 内容来自www.paper51.com

      </table>

内容来自论文无忧网 www.paper51.com

    内容来自论文无忧网 www.paper51.com

      <inputtype="hidden" name="MM_insert" value="form1">

copyright paper51.com

    </form>

copyright paper51.com

    </td> 内容来自论文无忧网 www.paper51.com

  </tr> paper51.com

</table>

内容来自论文无忧网 www.paper51.com

<!--#includefile="foot.htm"--> 内容来自www.paper51.com

</body>

内容来自www.paper51.com

</html> paper51.com

------分隔线----------------------------
联系方式