<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
webid = "member"
k_title = ""
webtitle = "Member Center"
k_keys = ""
k_content = ""
%>
<%
'**************** 参观者 会员注册******************
if request.QueryString("yz") <> "" then
myuser = request("u")
yzcode = request("yz")
sql = " select * from cuser where c_user='"&myuser&"' and c_code='"&yzcode&"' "
set rs = server.CreateObject("adodb.recordset")
rs.open sql,conn,1,2
if rs.bof and rs.eof then
response.Write("")
else
if rs("c_sheng") <> true then
rs("c_sheng") = true
rs.update
else
response.Write("")
end if
response.Write("")
end if
rs.close
set rs = nothing
end if
%>
<% If request("m")="memberterms" Then %>
<%
sql= "select * from wz where gb='ch' and wzid=127"
set rs = conn.execute( sql )
if rs.bof and rs.eof then
response.Write("No add")
else
do while not rs.eof
%>
<%= rs("wzName") %>
<%= rs("wzContain") %>
<%
rs.movenext
loop
end if
rs.close
set rs = nothing
%>
<% Else %>