<% dim cc_id,action action=Request("action") cc_id=Request("cc_id") Function LoseHtml(ContentStr) Dim ClsTempLoseStr,regEx ClsTempLoseStr = Cstr(ContentStr) Set regEx = New RegExp regEx.Pattern = "]*>" regEx.IgnoreCase = True regEx.Global = True ClsTempLoseStr = regEx.Replace(ClsTempLoseStr,"") ClsTempLoseStr = Replace(ClsTempLoseStr," ","") LoseHtml = Replace(ClsTempLoseStr," ","----") End function Call OpenConn() Dim Rs,Sql,i,picurl,savefile,HtmlFileDate,dl,rs1,truename,email,phone,qq,msn,address,province,sex,tel,city,cc_company,cc_title1,cc_content,getcode,cc_anclassid,ss_userid,ss_username,ss_password,rst,ss_count,rst1,i_count,cc_material if action="save" then getcode=replace(trim(Request("getcode")),"'","") cc_company=trim(Request.Form("cc_company")) cc_title1=trim(Request.Form("cc_title")) cc_content=LoseHtml(trim(Request.Form("cc_content"))) truename=trim(Request.Form("truename")) sex=Request.Form("sex") email=trim(Request.Form("email")) phone=trim(Request.Form("tel")) qq=trim(Request.Form("qq")) msn=trim(Request.Form("msn")) province=trim(Request.Form("inputProvince")) city=trim(Request.Form("city")) cc_anclassid=Request.Form("cc_anclassid") cc_material=trim(Request.Form("cc_material")) if cc_company="" then response.Write "" response.End end if if cc_title1="" then response.Write "" response.End end if if cc_content="" then response.Write "" response.End end if if truename="" then response.Write "" response.End end if if email="" then response.Write "" response.End end if if phone="" then response.Write "" response.End end if if province="" then response.Write "" response.End end if if getcode="" then response.Write "" response.End end if if S_userid<>"" and S_Username<>"" then sql = "Select * From userinfo where userid="&S_userid&" and username='"&S_Username&"'" set rs1 = Conn.Execute(Sql) //Set rs=Server.CreateObject("ADODB.RecordSet") //rs.open Sql,Conn,1,1 if not (rs1.EOF and rs1.BOF) then dl=1 else dl=0 rs1.Close set rs1=nothing end if end if set rst=server.CreateObject("adodb.recordset") if dl=1 then rst.Open "select email,phone,sex,province,city,qq,msn,address,truename from userinfo where userid="&S_userid,conn,1,3 rst("truename")=truename rst("sex")=sex rst("email")=email rst("phone")=phone rst("qq")=qq rst("msn")=msn rst("province")=province rst("city")=city rst("address")=address rst.Update rst.Close ss_userid=S_userid else dim Str,StrLen,RndNum,RndStr,RndStr1 function RndCode(Num) Str="0123456789abcdefghijklmnopqrstuvwxyz" StrLen=len(Str) for i=1 to Num Randomize RndNum=int(rnd(StrLen)*StrLen)+1 RndStr=RndStr&mid(Str,RndNum,1) next RndCode=RndStr end function function RndCode1(Num) Str="0123456789abcdefghijklmnopqrstuvwxyz" StrLen=len(Str) for i=1 to Num Randomize RndNum=int(rnd(StrLen)*StrLen)+1 RndStr1=RndStr1&mid(Str,RndNum,1) next RndCode1=RndStr1 end function rst.Open "select username,password,email,phone,sex,province,city,qq,msn,address,truename,usertype from userinfo ",conn,1,3 ss_count=rst.RecordCount set rst1=server.CreateObject("adodb.recordset") for i_count=1 to ss_count ss_username="gem"&RndCode(5) rst1.Open "select username from userinfo where username='"&ss_username&"'",conn,1,1 if rst1.EOF and rst1.BOF then Exit for end if rst1.Close next set rst1=nothing ss_password=RndCode1(6) rst.AddNew rst("username")=ss_username rst("password")=ss_password rst("truename")=truename rst("sex")=sex rst("email")=email rst("phone")=phone rst("qq")=qq rst("msn")=msn rst("province")=province rst("city")=city rst("address")=address rst("usertype")=1 rst.Update rst.Close rst.Open "select userid from userinfo where username='"&ss_username&"'",conn,1,1 ss_userid=rst("userid") rst.Close Response.Cookies("design")("username")=ss_username Response.Cookies("design")("userid")=ss_userid Response.Cookies("design")("usertype")=1 end if rst.Open "select cc_title,cc_content,cc_anclassid,cc_adtime,cc_status,cc_company,cc_userid,cc_material from FCustComp" ,conn,1,3 rst.AddNew rst("cc_title")=cc_title1 rst("cc_anclassid")=cc_anclassid rst("cc_content")=cc_content rst("cc_status")="未解决" rst("cc_company")=cc_company rst("cc_userid")=ss_userid rst("cc_adtime")=now() rst("cc_material")=cc_material rst.Update rst.Close set rst=nothing if S_userid="" then S_userid=ss_userid end if if dl=1 then Response.Write ";location.href="http://celesty.net/315_/index.asp?wt_id1="&S_userid&"&action1=fb";" else Response.Write "" end if end if dim IDStr if S_userid<>"" and S_Username<>"" then sql = "Select * From userinfo where userid="&S_userid&" and username='"&S_Username&"'" set rs1 = Conn.Execute(Sql) //Set rs=Server.CreateObject("ADODB.RecordSet") //rs.open Sql,Conn,1,1 if not (rs1.EOF and rs1.BOF) then dl=1 truename=trim(rs1("truename")) email=trim(rs1("email")) phone=trim(rs1("phone")) qq=trim(rs1("qq")) msn=trim(rs1("msn")) address=trim(rs1("address")) province=trim(rs1("province")) sex=rs1("sex") tel=rs1("phone") city=rs1("city") else dl=0 rs1.Close set rs1=nothing end if end if %> 中国珠宝网 - 中国最大的珠宝网站!- 58gem.com - 优乐娱乐youle168_www.youle168.com_优乐国际官方网站

提交投诉反馈

提交投诉反馈
投诉主题:
公司U乐娱乐:
投诉内容:
姓    名:: 先生 小姐 *
E-mail:  *
电    话:  *
QQ:
MSN:
省    份: 市/县/区  *
地    址:
验证码: 看不清吗?单击换一张试试
注意事项:
请留下正确的联系方式,我们的专员将会联系您以核实情况;由于联系方式错误导致联系不上当事人的我们将视该信息无效并删除。

youle168