profile.asp

来自「一套比较完整的内部技术支持全部源代码,请大家共同分享」· ASP 代码 · 共 80 行

ASP
80 行
字号 
<%@LANGUAGE="VBSCRIPT"%> 
<!--#include file="Connections/tar.asp" -->
<%
Dim rs_p__MMColParam
rs_p__MMColParam = "1"
If (Session("USERNAME") <> "") Then 
  rs_p__MMColParam = Session("USERNAME")
End If
%>
<%
Dim rs_p
Dim rs_p_numRows

Set rs_p = Server.CreateObject("ADODB.Recordset")
rs_p.ActiveConnection = MM_tar_STRING
rs_p.Source = "SELECT * FROM dbo.USER_LIST WHERE USERNAME = '" + Replace(rs_p__MMColParam, "'", "''") + "'"
rs_p.CursorType = 0
rs_p.CursorLocation = 2
rs_p.LockType = 1
rs_p.Open()

rs_p_numRows = 0
%>
<html>
<head>
<title></title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>

<body leftmargin="0" topmargin="0">
<table width="99%" height="99%" border="0">
  <tr>
    <td width="18%" height="73">晨砻内部技术支持网</td>
    <td width="82%">banner处</td>
  </tr>
  <tr>
    <td align="center" valign="top"> 
      <!--#include file="inc/menu.asp"-->
      &nbsp;</td>
    <td align="center" valign="top"><br>
      <form name="form2" method="post" action="">
        <table width="90%" border="0">
          <tr> 
            <td width="21%">登录帐号：</td>
            <td width="79%"><%=(rs_p.Fields.Item("USERNAME").Value)%></td>
          </tr>
          <tr> 
            <td>公司：</td>
            <td><%=(rs_p.Fields.Item("COMPANY").Value)%></td>
          </tr>
          <tr> 
            <td>电话：</td>
            <td><%=(rs_p.Fields.Item("phone").Value)%></td>
          </tr>
          <tr> 
            <td>手机：</td>
            <td><%=(rs_p.Fields.Item("MOBILE").Value)%></td>
          </tr>
          <tr> 
            <td>真实姓名：</td>
            <td><%=(rs_p.Fields.Item("REALNAME").Value)%></td>
          </tr>
          <tr> 
            <td>电子邮件地址：</td>
            <td><%=(rs_p.Fields.Item("EMAIL").Value)%></td>
          </tr>
          <tr> 
            <td colspan="2">信息如有差错，请联系管理员进行更改！</td>
          </tr>
        </table>
      </form> </td>
  </tr>
</table>
</body>
</html>
<%
rs_p.Close()
Set rs_p = Nothing
%>

profile.asp - 源码说明

本页面展示了「一套比较完整的内部技术支持全部源代码,请大家共同分享」中的 profile.asp 源码文件，采用 ASP 编程语言编写，共 80 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫下载站收录了大量与比较相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?