📄 user_info_show.asp
字号:
Response.Write("保密")
end select %>
</td>
</tr>
<tr valign="baseline">
<td nowrap align="right">家庭住址邮编:</td>
<td>
<%
dim asan_HomeZipcode
asan_HomeZipcode=modi.Fields.Item("HomeZipcode").Value
select case modi.Fields.Item("SeeHomeZipcode").Value
case "0"
Response.Write(asan_HomeZipcode)
case "1"
if See="0" then
Response.Write(asan_HomeZipcode)
else
Response.Write("保密")
end if
case else
Response.Write("保密")
end select %>
</td>
</tr>
<tr valign="baseline">
<td nowrap align="right">家庭详细住址:</td>
<td>
<%
dim asan_HomeAddress
asan_HomeAddress=modi.Fields.Item("HomeAddress").Value
select case modi.Fields.Item("SeeHomeAddress").Value
case "0"
Response.Write(asan_HomeAddress)
case "1"
if See="0" then
Response.Write(asan_HomeAddress)
else
Response.Write("保密")
end if
case else
Response.Write("保密")
end select %>
</td>
</tr>
<tr valign="baseline">
<td nowrap align="right">家庭电话:</td>
<td>
<%
dim asan_HomeTelphone
asan_HomeTelphone=modi.Fields.Item("HomeTelphone").Value
select case modi.Fields.Item("SeeHomeTelphone").Value
case "0"
Response.Write(asan_HomeTelphone)
case "1"
if See="0" then
Response.Write(asan_HomeTelphone)
else
Response.Write("保密")
end if
case else
Response.Write("保密")
end select %>
</td>
</tr>
<tr valign="baseline">
<td nowrap align="right">个人联系电话:</td>
<td>
<%
dim asan_PersonalTelphone
asan_PersonalTelphone=modi.Fields.Item("PersonalTelphone").Value
select case modi.Fields.Item("SeePersonalTelphone").Value
case "0"
Response.Write(asan_PersonalTelphone)
case "1"
if See="0" then
Response.Write(asan_PersonalTelphone)
else
Response.Write("保密")
end if
case else
Response.Write("保密")
end select %>
</td>
</tr>
<tr valign="baseline">
<td align="right" nowrap>电子邮箱:</td>
<td>
<%
dim asan_Email
asan_Email="<a href='mailto:"&modi.Fields.Item("Email").Value&"'>"&modi.Fields.Item("Email").Value&"</a>"
select case modi.Fields.Item("SeeEmail").Value
case "0"
Response.Write(asan_Email)
case "1"
if See="0" then
Response.Write(asan_Email)
else
Response.Write("保密")
end if
case else
Response.Write("保密")
end select %>
</td>
</tr>
<tr valign="baseline">
<td nowrap align="right">QQ:</td>
<td>
<%
dim asan_QQ
asan_QQ="<a href='tencent://message/?uin="&modi.Fields.Item("QQ").Value&"&Site=清远ABC|学校机房作业管理系统&Menu=yes' target='_blank'>"&modi.Fields.Item("QQ").Value&"</a>"
select case modi.Fields.Item("SeeQQ").Value
case "0"
Response.Write(asan_QQ)
case "1"
if See="0" then
Response.Write(asan_QQ)
else
Response.Write("保密")
end if
case else
Response.Write("保密")
end select %>
</td>
</tr>
<tr valign="baseline">
<td nowrap align="right">个人网站:</td>
<td>
<%
dim asan_HomePages
asan_HomePages="<a href='"&modi.Fields.Item("HomePages").Value&"' target='_blank'>"&modi.Fields.Item("HomePages").Value&"</a>"
select case modi.Fields.Item("SeeHomePages").Value
case "0"
Response.Write(asan_HomePages)
case "1"
if See="0" then
Response.Write(asan_HomePages)
else
Response.Write("保密")
end if
case else
Response.Write("保密")
end select %>
</td>
</tr>
<tr valign="baseline">
<td nowrap align="right">工作单位名称:</td>
<td>
<%
dim asan_OfficeName
asan_OfficeName=modi.Fields.Item("OfficeName").Value
select case modi.Fields.Item("SeeOfficeName").Value
case "0"
Response.Write(asan_OfficeName)
case "1"
if See="0" then
Response.Write(asan_OfficeName)
else
Response.Write("保密")
end if
case else
Response.Write("保密")
end select %>
</td>
</tr>
<tr valign="baseline">
<td nowrap align="right">工作单位电话:</td>
<td>
<%
dim asan_OfficeTelphone
asan_OfficeTelphone=modi.Fields.Item("OfficeTelphone").Value
select case modi.Fields.Item("SeeOfficeTelphone").Value
case "0"
Response.Write(asan_OfficeTelphone)
case "1"
if See="0" then
Response.Write(asan_OfficeTelphone)
else
Response.Write("保密")
end if
case else
Response.Write("保密")
end select %>
</td>
</tr>
<tr valign="baseline">
<td nowrap align="right">工作单位邮编:</td>
<td>
<%
dim asan_OfficeZipcode
asan_OfficeZipcode=modi.Fields.Item("OfficeZipcode").Value
select case modi.Fields.Item("SeeOfficeZipcode").Value
case "0"
Response.Write(asan_OfficeZipcode)
case "1"
if See="0" then
Response.Write(asan_OfficeZipcode)
else
Response.Write("保密")
end if
case else
Response.Write("保密")
end select %>
</td>
</tr>
<tr valign="baseline">
<td nowrap align="right">工作单位详细地址:</td>
<td>
<%
dim asan_OfficeAddress
asan_OfficeAddress=modi.Fields.Item("OfficeAddress").Value
select case modi.Fields.Item("SeeOfficeAddress").Value
case "0"
Response.Write(asan_OfficeAddress)
case "1"
if See="0" then
Response.Write(asan_OfficeAddress)
else
Response.Write("保密")
end if
case else
Response.Write("保密")
end select %>
</td>
</tr>
<tr valign="baseline">
<td nowrap align="right">所做工作内容:</td>
<td>
<%
dim asan_Post
asan_Post=modi.Fields.Item("Post").Value
select case modi.Fields.Item("SeePost").Value
case "0"
Response.Write(asan_Post)
case "1"
if See="0" then
Response.Write(asan_Post)
else
Response.Write("保密")
end if
case else
Response.Write("保密")
end select %>
</td>
</tr>
<tr>
<td nowrap align="right" valign="top">个人简介:</td>
<td valign="top">
<%
dim asan_Introduction
asan_Introduction=modi.Fields.Item("Introduction").Value
select case modi.Fields.Item("SeeIntroduction").Value
case "0"
Response.Write(asan_Introduction)
case "1"
if See="0" then
Response.Write(asan_Introduction)
else
Response.Write("保密")
end if
case else
Response.Write("保密")
end select %>
</td>
</tr>
<tr valign="baseline">
<td nowrap align="right"> </td>
<td><div align="right"><a href="sms_write.asp?SmsSubject=&userid=<%=(modi.Fields.Item("userid").Value)%>">发信给他/她</a>
</div></td>
</tr>
</table>
<div align="right"></div></td>
</tr>
</table></td>
</tr>
</table>
<!--#include file="inc/bot.asp" -->
</body>
</html>
<% else %>
没有这用户！请正确操作系统！<a href="javascript:history.back(-1)">返回上一页</a>
<% End If ' end Not modi.EOF Or NOT modi.BOF %>
<%
modi.Close()
Set modi = Nothing
%>
<%
myinfo.Close()
Set myinfo = Nothing
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -