viewpro.asp

来自「程序名称：酷虎网校友录 V1.0 （商业版）*(修改版） * 本软体为商业软件」· ASP 代码 · 共 17 行

<%
function ViewPro(ProValue)
Sql="Select * From 专业设置 WHERE ID=" & Cint(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("专业名称") & "</a>"
End IF
ENd IF
Set ViewProRS=Nothing
end function
%>