Xwm365.com
Title
新网民 | 精品站点导航
Description
Excerpted from the website:
- 新闻发布功能关闭!&ErrorURL=") ' Response.End() 'end if 'If Not Fs_news.IsSelfRefer Then response.write "非法提交数据":Response.end str_ClassID = NoSqlHack(Request.QueryString("ClassID")) 'if not Get_SubPop_TF(str_ClassID,"NS001","NS","news") then Err_Show if Trim(str_ClassID)"" then Dim tmp_class_obj set tmp_class_obj = conn.execute("select FileExtName,NewsTemplet,DefineID from FS_NS_NewsClass where classID='"& str_ClassID &"'") if not tmp_class_obj.eof then Select Case tmp_class_obj(0) Case "html" tmp_sFileExtName = 0 Case "htm" tmp_sFileExtName =1 Case "shtml" tmp_sFileExtName = 2 Case "shtm" tmp_sFileExtName = 3 Case "asp" tmp_sFileExtName = 4 End Select tmp_sTemplets = tmp_class_obj(1) tmp_defineid = tmp_class_obj(2) tmp_class_obj.close:set tmp_class_obj=nothing Else tmp_defineid = 0 tmp_sFileExtName = fs_news.fileExtName tmp_sTemplets = Replace("/"& G_TEMPLETS_DIR &"/NewsClass/news.htm","//","/") end if Else tmp_sFileExtName = fs_news.fileExtName tmp_sTemplets = Replace("/"& G_TEMPLETS_DIR &"/NewsClass/news.htm","//","/") End if if G_VIRTUAL_ROOT_DIR"" then sRootDir="/"+G_VIRTUAL_ROOT_DIR else sRootDir="" if Session("Admin_Is_Super") = 1 then str_CurrPath = sRootDir &"/"&G_UP_FILES_DIR Else str_CurrPath = Replace(sRootDir &"/"&G_UP_FILES_DIR&"/adminfiles/"&Session("Admin_Name"),"//","/") End if %>
Languages
中文 (Chinese)
Additional Information
Related Domains
External Links
- Alexa: Xwm365.com
- WHOIS for Xwm365.com
