<%
'******************************************************************************************
'PageName:ShowSdt.asp
'Function:Show good student
'How to use:
'Author:xiaotian
'Last Update:2002-10-16
'******************************************************************************************
%>



<%
Dim rs
Dim conn
Dim strSql
Dim Showstr
'SQL语句
strSql="SELECT TOP 1 UD_Name,UD_HomeplaceID,UD_College,UD_SpecialtyID,UD_Politic,UD_Resume,UD_Pic FROM T_UserDetail INNER JOIN T_User ON T_UserDetail.UD_Uid=T_User.U_Uid WHERE UD_Show='Y' AND U_Level='userL1'"
'打开数据库
set conn=Server.CreateObject("ADODB.connection")
conn.Open MM_conn_STRING
set rs=Server.CreateObject("ADODB.Recordset")
rs.Open strSql,conn,1,1
if rs.eof and rs.bof then
  response.write "The record is null"
  response.end
end if
'输出
Showstr="
"&_
        ""&_
		"
"&_
		""&_
		""&_
		""&_
		""&_
		""&_
		""&_
		""&_
		""&_
		""&_
		"
"&_
		"
姓名：
"&rs(0)&"
籍贯：
"&ShowTypeItems(rs(1))&"
专业：
"&ShowTypeItems(rs(3))&"
院系：
"&ShowTypeItems(rs(2))&"
面貌：
"&ShowTypeItems(rs(4))&"
"&_
		""&_
		""&_
		"
个人简历："&DoTrimProperly(rs(5),50,0,1,"...")&"
"&_
		"
"&_
		"
........ 查看详细 ..
"&_
		"
"
Response.Write "document.write("""&Showstr&""");"
'释放资源
rs.Close()
set rs=Nothing
conn.Close
set conn=Nothing
%>