viewpro.asp

来自「这是一个校友录管理系统」· ASP 代码 · 共 17 行

<%
function ViewPro(ProValue)
Sql="Select * From specialty WHERE ID=" &ProValue
Set ViewProRS=Server.CreateObject("ADODB.Recordset")
ViewProRS.Open Sql,Conn,1,1
IF ProValue=0 Then
Response.Write "没有填写"
Else
IF ViewProRs.Eof Then
	Response.Write "没有填写"
Else
	Response.Write "<a href='classlist.asp?ProViewType=" & ViewProRs("ID") & "'>" & ViewProRS("specialty") & "</a>"
End IF
ENd IF
Set ViewProRS=Nothing
end function
%>