📄 viewpro.asp
字号:
<%
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
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -