<%=pageTitle %>-<% =meta

<% 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:	*	From:
E-mail:	*	Company name:
Tel:	*		With an asterisk “*” can not be empty!
Message:	*

<% Session( "MM_member") = "" Call topiclist_note( 5) %>

<% 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 %>