📄 viewuser.asp
字号:
<%@ Language=VBScript %>
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
</HEAD>
<BODY>
<FORM action="" method=POST id=form1 name=form1>
<%
if Request.ServerVariables("http_method")="GET" then
set conn=server.CreateObject("adodb.connection")
conn.ConnectionString="dsn=findjob"
conn.Open
strsql="select * from userinfo where user='" & Request.QueryString("user") & "'"
set sqlresult=conn.Execute(strsql)
%>
<P align=center><STRONG><FONT color=slateblue face=幼圆
size=5>个人具体资料</FONT></STRONG></P>
<P align=center><STRONG><FONT color=crimson face=幼圆
size=4>姓 名:<%=sqlresult("username")%></FONT></STRONG>
<P align=center>
<TABLE border=0 cellPadding=1 cellSpacing=1 height=300
style="HEIGHT: 250px; WIDTH: 496px" width=496>
<TR>
<TD>性别：<%=sqlresult("usersex")%></TD>
<TD>年龄：<%=sqlresult("userage")%></TD></TR>
<TR>
<TD>学历：<%=sqlresult("userlevel")%> </TD>
<TD>专业：<%=sqlresult("usermajor")%></TD></TR>
<TR>
<TD>求职意向：
<TD colSpan=2>1. <%=sqlresult("job1")%>
<TR>
<TD>
<TD colSpan=2>2. <%=sqlresult("job2")%>
<TR>
<TD colSpan=3>联系地址：<%=sqlresult("addr")%>
<TR>
<TD colSpan=3>
<DIV align=center><STRONG><FONT face=幼圆>个人简历</FONT></STRONG></DIV>
<TR>
<TD colSpan=3>
<PRE><%=sqlresult("resume")%></PRE>
<TR>
<TD colSpan=3></TD></TR></TABLE></P>
<INPUT type="submit" value="初步录用" id=submit1 name=submit1>
<INPUT type="hidden" id=h1 name=user value=<%=sqlresult("user")%>>
<INPUT type="hidden" id=h1 name=username value=<%=sqlresult("username")%>>
</FORM>
<%conn.Close
set conn=nothing
%>
<%
else
if session("namelist")="" then
session("namelist")="'" & Request.Form("user") & "'"
else
session("namelist")=session("namelist") & ",'" & Request.Form("user") & "'"
end if
Response.Write "<b>初步录取了" & Request.Form("username") & "</b><br>"
Response.Write "<a href='viewalluser.asp?page=1'>返回查看所有人才<a>"
end if
%>
</BODY>
</HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -