%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%> <% if request("t")<>"" then lb=request("t") end if %> <% strSQL = "SELECT TOP 1 us1 FROM about_us_info" SET rs = Conn.Execute(strSQL) If rs.BOF AND rs.EOF Then AboutUs1 = "" Else AboutUs1 = rs("us1") End If Call rsClose() %> <% strSQL = "SELECT TOP 1 us2 FROM about_us_info" SET rs = Conn.Execute(strSQL) If rs.BOF AND rs.EOF Then AboutUs2 = "" Else AboutUs2 = rs("us2") End If Call rsClose() %> <% strSQL = "SELECT TOP 1 us6 FROM about_us_info" SET rs = Conn.Execute(strSQL) If rs.BOF AND rs.EOF Then AboutUs6 = "" Else AboutUs6 = rs("us6") End If Call rsClose() %> <% If UserPost() Then uid = Trim(Request.Form("uid")) O_Num = Trim(Request.Form("Num")) O_Name = Trim(Request.Form("name")) O_Email = Trim(Request.Form("email")) O_Sex = Trim(Request.Form("sex")) O_Address = Trim(Request.Form("address")) O_City = Trim(Request.Form("city")) O_Tel = Trim(Request.Form("tel")) If O_Num = "" and O_Email = "" Then Call ConnClose() response.Write "" response.end End If strSQL = "Insert Into appl(uid,O_Num,O_Name,O_Email,O_Sex,O_Address,O_City,O_Tel) values" strSQL = strSQL & "('" & uid & "','" & O_Num & "','" & O_Name & "','" & O_Email & "','" & O_Sex & "','" & O_Address & "','" & O_City & "','" & Tel & "')" Conn.Execute(strSQL) Call ConnClose() response.Write "" Response.End() End If %> <% dim PName id = Trim(Request.QueryString("id")) If isNumeric(id) = False Then Response.Redirect("index.asp") Response.End() End If strSQL = "SELECT TOP 1 * FROM IMM WHERE [ID] = " & id SET rs = Conn.Execute(strSQL) If rs.BOF AND rs.EOF Then Response.Redirect("index.asp") Response.End() Else Title = rs("P_NAME") P_pic = rs("P_PIC") P_ovw = rs("P_OVW") P_cdt = rs("P_CDT") P_prc = rs("P_PRC") P_ivm = rs("P_IVM") P_adv = rs("P_ADV") PName = rs("C_NAME") End If Call rsClose() strSQL = "UPDATE IMM SET P_COUNT = P_COUNT + 1 WHERE [ID] = " & id Conn.Execute(strSQL) %>
首页 > 移民项目 > <% = PName %> > <%= Title %>
|
|
|
||||
<%
strSQL = "SELECT * FROM LINK_LIST where P_TYPE=1 order by id"
SET rs = Conn.Execute(strSQL)
If Not (rs.BOF AND rs.EOF) Then
Do While Not rs.EOF
%>
|
||||
移民项目 | 加拿大移民 / 英国移民 / 美国移民 / 香港定居 / 澳洲移民 / 新加坡移民 / 菲律宾移民 | 移民动态 | 海外生活 | 安家服务 | 云南分公司 |
|