📄 admin_sms_pro_info.asp
字号:
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 height="31" align="right" nowrap>电子邮箱:</td>
<td> <%
dim asan_Email
asan_Email=modi.Fields.Item("Email").Value
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=modi.Fields.Item("QQ").Value
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=modi.Fields.Item("HomePages").Value
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/smswrite.asp?SmsSubject=&studnetnum=<%=(modi.Fields.Item("studentnum").Value)%>">发信给他/她</a>
</div></td>
</tr>
</table>
<div align="right"></div></td>
<td bgcolor="#E1FADE" width=110><div align="center"></div></td>
</tr>
</table>
<!--#include file="asaning/inc/bot.asp" -->
</body>
</html>
<%
modi.Close()
Set modi = Nothing
%>
<%
myinfo.Close()
Set myinfo = Nothing
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -