<% '========================================== '文 件 名:SignUp.asp '文件用途:在线报名 '版权所有:方卡在线 '========================================== Dim Fk_Project_Name Id=Clng(Request.QueryString("Id")) Sqlstr="Select Fk_Project_Name From [Fk_Project] Where Fk_Project_State=1 And Fk_Project_Id=" & Id Rs.Open Sqlstr,Conn,1,1 If Not Rs.Eof Then Fk_Project_Name=Rs("Fk_Project_Name") Else Call FkFun.AlertInfo("报名不存在!","1") End If Rs.Close %> <%=Fk_Project_Name%> -- <%=Fk_Site_Name%><%=FkSystemPowerBy%>
<% Sqlstr="Select Fk_Question_Id,Fk_Question_Title,Fk_Question_Type,Fk_Question_Content From [Fk_Question] Where Fk_Question_Project="&Id&" And Fk_Question_Show>0 Order By Fk_Question_Id Asc" Rs.Open Sqlstr,Conn,1,1 While Not Rs.Eof %> <% If Rs("Fk_Question_Type")=0 Then %> <% ElseIf Rs("Fk_Question_Type")=1 Then TempArr=Split(Rs("Fk_Question_Content"),"
") %> <% End If %> <% Rs.MoveNext Wend Rs.Close %>
<%=Fk_Project_Name%>
<%=Rs("Fk_Question_Title")%>:  " value="" type="text" id="Input<%=Rs("Fk_Question_Id")%>" class="input" style="width:200px" />  <% For Each Temp In TempArr %> " type="radio" value="<%=Temp%>" id="Input<%=Rs("Fk_Question_Id")%>" class="input" /> <%=Temp%> <% Next %>
    

版权所有 <%=Fk_Site_Name%>