<% conn.execute("DELETE FROM newsphoto") conn.execute("DELETE FROM news") conn.execute("DELETE FROM T_Columns WHERE depth>0") conn.execute("DELETE FROM news_xl") conn.execute("DELETE FROM T_SpecialTopic") %> <% currentID = "" If Trim( Request.QueryString( "id")) <> "" Then currentID = checkStr( Request.QueryString( "id")) End If sql = "Select Top 1 RootID,ColumnID,ColumnName,ParentStr,ParentID,Depth,ColumnNameEng,ColumnNameJap From T_Columns Where states >=20 and ColumnID ="& currentID rs.Open sql,conn,1,1 If rs.eof Then rs.Close() call msgbox( "没有查找你点击的栏目!"& currentID,1) Else If rs(3) = "0" Then categoryid = rs(1) Else categoryid = rs(3) &","& rs(1) End If contentList = rs.Getrows rs.Close() columnTitle = getlv( lan_id, contentList(2,0), contentList(6,0), contentList(7,0)) pageTitle = columnTitle rootID = contentList(0,0) cur_rtid = rootID ParentID = contentList(4,0) depth = contentList(5,0) End If Dim skin ' 栏目的皮肤 skin = checkStr( Request.QueryString( "skin")) If skin <> "" Then skin = CInt( skin) Else skin = cur_rtid End If Dim title, name1, content, otime, ip If request.Form( "send" ) = "yes" Then Call saveNote() End If %> <% Dim csql,contentList, contentStr,titleKeys homeflag="1" ' 主站标志 If columnTitle = "" Then columnTitle = "在线留言" If titleKeys = "" Then titleKeys = meta_keys '将搜索关键词加入页面 If titleKeys <> "" Then pageTitle = pageTitle & "-" & titleKeys If Session( "note_cp") = "" Then Session( "note_cp") = Session( "P_truename") If Session( "note_email") = "" Then Session( "note_email") = Session( "P_email") %> <%=pageTitle %>-<% =meta_owner %>
中文版>> English>>

CONTACT US >>

Contact: * From:
E-mail: * Company name:
Tel: *   With an asterisk “*” can not be empty!
Message: *
 
<% Session( "MM_member") = "" Call topiclist_note( 5) %>
Copyright(c) 2006 SKYCHEM all right reserved. Support by: K800.CN
Tel: +86 13926929991, +86 756 8123186   Fax: +86 756 8806056   Email: sales@skysperse.net, sales@skychem.com.cn
<% Sub saveNote() sql="select top 1 * from T_Notebook order by id desc" rs.Open sql,conn,1,3 rs.addnew for i=1 to 6 rs("A"&i)=request.Form("a"&i) next rs("root")=0 rs("otime")=now() rs("level")="1" rs("lan_id")=lan_id rs.update rs.requery rs.close Call Msgbox( iif( lan_id=0, "您的主题已经提交成功,请等待回复!", "Submit successfully."), "notes.asp?lan=" & lan & "&skin="& skin &"&id="& currentID &"") End Sub %>