admin_software.asp

大型黄页系统,精美黄页flash演示,10m

			Response.Write "checked"
		End If
	Else
		Response.Write "checked"
	End If
	Response.Write ">"
	Response.Write " 不置顶　<input type=""radio"" name=""isTop"" value=""1"" "
	If isEdit Then
		If CInt(Rs("isTop")) = 1 Then
			Response.Write "checked"
		End If
	End If
	Response.Write ">"
	Response.Write " 信息置顶　</td>"
	Response.Write " </tr>"
	'Response.Write " <tr height=""22"">"
	'Response.Write " <td align=""right"" class=""forumRowHighlight"">会员信息设置：</td>"
	'Response.Write " <td class=""forumRow""> <select name=""isMember"" size=""1"">"
	'Set Rs1 = DownsysClass.Execute("select * from NC_UserGroup order by groupid")
	'Do While Not Rs1.EOF
		'Response.Write "<option value="""
		'Response.Write Rs1("Grades")
		'Response.Write """ "
		'If isEdit Then
			'If Trim(Rs("isMember")) = "" & Rs1("Grades") & "" Then
				'Response.Write "selected"
			'End If
		'End If
		'Response.Write ">"
		'Response.Write Rs1("GroupName")
		'Response.Write "</option>"
		'Rs1.movenext
	'Loop
	'Rs1.Close
	'Set Rs1 = Nothing
	'Response.Write " </select>&nbsp;&nbsp;"
	'Response.Write "信息信息所需的点数：<input name=""MoneyNum"" type=""text"" size=""6"" value="""
	'If isEdit Then
		'Response.Write Rs("MoneyNum")
	'Else
		'Response.Write "0"
	'End If
	'Response.Write """>&nbsp;&nbsp;"
	If isEdit Then
		Response.Write "<input name=""updateTime"" type=""checkbox"" value=""yes"">更新时间"
	End If
	If CInt(DownsysClass.Setting(5)) = 0 Then Response.Write "<input type=checkbox name='isCreateHtml' value='yes' checked> 同时生成（HTML）"
	Response.Write "</td>"
	Response.Write " </tr>"
	'If isEdit Then
		'Response.Write " <tr height=""22"">"
		'Response.Write " <td colspan=""4"" class=""forumRow"">"
		'SQL = "select * from NC_softsite where SoftID=" & Request("SoftID")
		'SiteRs.Open SQL, Conn, 1, 1
		'If SiteRs.EOF And SiteRs.bof Then
			'Response.Write "目前还没有添加任何信息连接！"
		'Else
			'totalPut = SiteRs.recordcount
		'	i = 1
		'	Do While Not SiteRs.EOF
			'	Response.Write "<input type=""text"" name=""stRsiteName" & i & """ value=""" & SiteRs("SiteName") & """ size=12>&nbsp;"
				'SelDownServer SiteRs("serverid"), "server" & i
				'Response.Write "&nbsp;URL：<input type=""text"" name=""strDownSite" & i & """ size=35 value=""" & SiteRs("DownSite") & """> "
				'Response.Write "[<a href=""publish.asp?action=delsite&id=" & SiteRs("id") & "&SoftID=" & Request("SoftID") & """ onclick=""{if(confirm('您确定要删除该连接吗?')){this.document.myform.submit();return true;}return false;}"">删 除</a>]<BR>"
				'Response.Write "<input name=""ID" & i & """ type=""hidden"" value=""" & SiteRs("ID") & """>"
				'i = i + 1
				'SiteRs.movenext
			'Loop
		'End If
		'SiteRs.Close
		'Response.Write "<input name=""totalPut"" type=""hidden"" id=""totalPut"" value=""" & totalPut & """>"
		'Response.Write " </td></tr>"
	'End If
	'Response.Write " <tr height=""22"">"
	'Response.Write " <td colspan=""2"" class=""forumRow"">"
	'Response.Write " <script language=""javascript"">" & vbCrLf
	'Response.Write Chr(9) & " function setid()" & vbCrLf
	'Response.Write Chr(9) & " {" & vbCrLf
	'Response.Write Chr(9) & " str='';" & vbCrLf
	'Response.Write Chr(9) & " if(!window.myform.no.value)" & vbCrLf
	'Response.Write Chr(9) & " window.myform.no.value=1;" & vbCrLf
	'Response.Write " " & Chr(9) & " for(i=1;i<=window.myform.no.value;i++)" & vbCrLf
	'Response.Write Chr(9) & " str+=''+'<input type=""text"" name=""SiteName'+i+'"" value=""通讯方式'+i+'"" size=12>&nbsp;URL：<input type=""text"" name=""DownSite'+i+'"" size=40 value="""">&nbsp;"
	'i = "'+i+'"
	'SelDownServer 0, "serverid" & i
	'Response.Write "<BR>';" & vbCrLf
	'Response.Write Chr(9) & " window.upid.innerHTML=str+' <font color=red>* 如果选择了信息服务器，请根据相应的通讯方式输入信息主题，前面请不要添加“/”。</font>';" & vbCrLf
	'Response.Write Chr(9) & " }" & vbCrLf
	'Response.Write Chr(9) & " <!--/script>设置添加通讯方式的数量:&nbsp;<input type=""text"" name=""no"" value=""1"" size=2>&nbsp;&nbsp;<input type=""button"" name=""Button"" class=button onclick=""setid();"" value=""添加通讯方式数量"">"
	'Response.Write " <font color=red>* 如果没有选择通讯方式请输入完整的公司地址</font> "
	'Response.Write " </td>"
	'Response.Write " </tr>"
	Response.Write " <tr height=""22"">"
	Response.Write " <td colspan=""2"" id=""upid"" class=""forumRow"">"
Response.Write " <table width=""95%"" align=""center""  border=""0"" cellpadding=""0"" cellspacing=""0"">"
Response.Write "                 <tr> <td bgcolor=""#CCCCCC""><TABLE width=""100%"" border=0 cellPadding=4 cellSpacing=1>"
Response.Write "                             <tr>"
Response.Write "                                 <td width=""25%"" align=""right"" bgcolor=""#FFFFFF"" style=""PADDING-LEFT: 10px"">姓名：</TD>"
Response.Write "                                <td bgcolor=""#FFFFFF"" style=""PADDING-LEFT: 10px""> "& Rs("truename") &"（"& Rs("JobTitle") &"）"& Rs("Grade") &"</TD>"
Response.Write "                             </tr>"
Response.Write "                             <tr>"
Response.Write "                                 <td align=""right"" bgcolor=""#FFFFFF"" style=""PADDING-LEFT: 10px"">公司名称：</TD>"
Response.Write "                                 <td bgcolor=""#FFFFFF"" style=""PADDING-LEFT: 10px""> "& Rs("Company") &"</TD>"
Response.Write "                             </tr>"
Response.Write "                             <tr>"
Response.Write "                                 <td align=""right"" bgcolor=""#FFFFFF"" style=""PADDING-LEFT: 10px"">电话：</TD>"
Response.Write "                                 <td bgcolor=""#FFFFFF"" style=""PADDING-LEFT: 10px"">"& Rs("PhoneCountry") &"-"& Rs("PhoneArea") &"-"& Rs("usertel") &"</td>"
Response.Write "                             </tr>"
Response.Write "                             <tr>"
Response.Write "                                 <td align=""right"" bgcolor=""#FFFFFF"" style=""PADDING-LEFT: 10px"">传真：</TD>"
Response.Write "                                 <td bgcolor=""#FFFFFF"" style=""PADDING-LEFT: 10px"">"& Rs("FaxCountry") &"-"& Rs("FaxArea") &"-"& Rs("FaxNumber") &"</td>"
Response.Write "                             </tr>"
Response.Write "                             <tr>"
Response.Write "                                 <td align=""right"" bgcolor=""#FFFFFF"" style=""PADDING-LEFT: 10px"">移动电话：</TD>"
Response.Write "                                 <td bgcolor=""#FFFFFF"" style=""PADDING-LEFT: 10px"">"& Rs("MobileNo") &"</td>"
Response.Write "                             </tr>"
Response.Write "                             <tr>"
Response.Write "                                 <td align=""right"" bgcolor=""#FFFFFF"" style=""PADDING-LEFT: 10px"">电子邮件：</TD>"
Response.Write "                                 <td bgcolor=""#FFFFFF"" style=""PADDING-LEFT: 10px""> "& Rs("usermail") &"  </TD>"
Response.Write "                             </tr>"
Response.Write "                             <tr>"
Response.Write "                               <td align=""right"" bgcolor=""#FFFFFF"" style=""PADDING-LEFT: 10px"">所在城市：</TD>"
Response.Write "                               <td bgcolor=""#FFFFFF"" style=""PADDING-LEFT: 10px"">"& Rs("MaterialClassCode") &"</TD>"
Response.Write "                             </tr>"
Response.Write "                             <tr>"
Response.Write "                               <td align=""right"" bgcolor=""#FFFFFF"" style=""PADDING-LEFT: 10px"">详细地址：</TD>"
Response.Write "                               <td bgcolor=""#FFFFFF"" style=""PADDING-LEFT: 10px"">"& Rs("address") &"</TD>"
Response.Write "                             </tr>"
Response.Write "                             <tr>"
 Response.Write "                              <td align=""right"" bgcolor=""#FFFFFF"" style=""PADDING-LEFT: 10px"">邮编：</TD>"
Response.Write "                               <td bgcolor=""#FFFFFF"" style=""PADDING-LEFT: 10px"">"& Rs("postcode") &"</TD>"
Response.Write "                             </tr>"
Response.Write "                         </TABLE> </td> </tr></table>"
Response.Write "	 </td>"
	Response.Write " </tr>"
	Response.Write " <tr>"
	Response.Write " <td height=""22"" align=""right"" class=""forumRowHighlight"">&nbsp;</td>"
	Response.Write " <td align=""center"" class=""forumRow"">"
	Response.Write " <input type=button class=button value=""查看内容长度"" name=Button onclick=""checklength(document.myform);"">&nbsp;&nbsp;"
	Response.Write " <input type=reset name=Submit2 class=button value=""清 除"" onclick=""ClearReset()"">&nbsp;&nbsp;"
	Response.Write " <input type=Submit class=button value=""提 交"" name=Submit>&nbsp;&nbsp;"
	Response.Write " </td>"
	Response.Write " </tr>"
	Response.Write "</form>"
	Response.Write "</table>"
	Response.Write "</div>"
	If CInt(DownsysClass.Setting(19)) = 0 Then
		Response.Write "<Script language=javascript>" & vbCrLf
		Response.Write "<!--//" & vbCrLf
		Response.Write "document.myform.content1.value = ubbcode(document.myform.content1.value);" & vbCrLf
		Response.Write "function ubbcode(temp) {" & vbCrLf
		Response.Write "temp = temp.replace(/<br>/ig,""\n"");" & vbCrLf
		Response.Write "temp = temp.replace(/<p>/ig,""\n"");" & vbCrLf
		Response.Write "temp = temp.replace(/<\/p>/ig,""\n"");" & vbCrLf
		Response.Write "return (temp);" & vbCrLf
		Response.Write "}" & vbCrLf
		Response.Write "function ClearReset()" & vbCrLf
		Response.Write "{" & vbCrLf
		Response.Write " document.myform.content1.value = '';" & vbCrLf
		Response.Write " focus();" & vbCrLf
		Response.Write "}" & vbCrLf
		Response.Write "function checklength(theform)" & vbCrLf
		Response.Write "{" & vbCrLf
		Response.Write " alert(""您的内容目前有 ""+theform.content1.value.length+"" 字节。"");" & vbCrLf
		Response.Write "}" & vbCrLf
		Response.Write "//-->" & vbCrLf
		Response.Write "</Script>" & vbCrLf
	End If
	Set NC_HtmlEdit = Nothing
	If isEdit Then
		Rs.Close
		Set Rs = Nothing
	End If

End Sub


Private Sub checksave()
	If Len(Request.Form("softname")) = 0 Then
		Founderr = True
		ErrMsg = ErrMsg + "<li>信息主题不能为空！</li>"
		Exit Sub
	End If
	If Len(Request.Form("sortid")) = 0 Then
		Founderr = True
		ErrMsg = ErrMsg + "<li>信息分类不能为空！</li>"
		Exit Sub
	Else
		strSortid = Split(Trim(Request.Form("sortid")), ",")
	End If
	If Len(Request.Form("content1")) = 0 Then
		Founderr = True
		ErrMsg = ErrMsg + "<li>信息简介不能为空！</li>"
		Exit Sub
	End If

	If CInt(DownsysClass.Setting(19)) = 1 Then
		TxtContent = Request.Form("content1")
	Else
		TxtContent = DownsysClass.HTMLEncodes(Request.Form("content1"))
	End If
End Sub


Private Sub saveAdd()
	Call checksave
	If Founderr = False Then
		SQL = "select * from NC_SoftInfo where (softid is null)"
		Rs.Open SQL, Conn, 1, 3
		Rs.addnew
		Rs("softname") = DownsysClass.ChkFormStr(Request.Form("softname"))
		Rs("SoftVer") = DownsysClass.ChkFormStr(Request.Form("SoftVer"))
		Rs("rootid") = strSortid(0)
		Rs("sortid") = strSortid(1)
		Rs("SortName") = strSortid(2)
		Rs("content") = TxtContent
		Rs("Language") = Request.Form("Language")
		Rs("SoftType") = Request.Form("SoftType")
		Rs("isCommend") = Request.Form("isCommend")
		Rs("RunSystem") = DownsysClass.ChkFormStr(Request.Form("RunSystem"))
		Rs("impower") = Request.Form("impower")
		If Trim(Request.Form("SizeUnit")) = "MB" Then
			Rs("SoftSize") = CLng(Request.Form("SoftSize") * 1024)
		Else
			Rs("SoftSize") = CLng(Request.Form("SoftSize"))
		End If
		Rs("RunSystem") = Request.Form("RunSystem")
		Rs("Grades") = Request.Form("Grades")
		Rs("Decode") = Request.Form("Decode")
		Rs("isMember") = Request.Form("isMember")
		Rs("Homepage") = Request.Form("Homepage")
		Rs("Contact") = Request.Form("Contact")
		Rs("PreviewImg") = Request.Form("PreviewImg")
		Rs("Softimg") = Request.Form("Softimg")
		Rs("Errcode") = 0
		Rs("username") = Session(DownsysClass.CacheName & "AdminName")
		If Len(Request.Form("MoneyNum")) = 0 Then
			Rs("MoneyNum") = 0
		Else
			Rs("MoneyNum") = Request.Form("MoneyNum")
		End If
		Rs("isTop") = Request.Form("isTop")
		Rs("DayHits") = 0
		Rs("WeekHits") = 0
		Rs("MonthHits") = 0
		Rs("Hits") = 0
		Rs("HitsTime") = DownsysClass.NowTime
		Rs("SoftTime") = DownsysClass.NowTime
		Rs("isUpdate") = 1
		Rs("isLock") = 0
		Rs.Update
		Rs.Close
		Rs.Open "select top 1 softid from NC_SoftInfo order by softid desc", Conn, 1, 1
		pubSoftID = Rs("softid")
		Rs.Close
		SQL = "update NC_softSort set SoftNum=SoftNum+1,isUpdate=1 where depth<>0 and sortid=" & strSortid(1)
		DownsysClass.Execute SQL
		SQL = "update NC_softSort set SoftNum=SoftNum+1,isUpdate=1 where depth=0 and rootid=" & strSortid(0)
		DownsysClass.Execute SQL
		'//////添加信息连接地址//////
		If Request.Form("no") <> "" And pubSoftID <> "" Then
			For i = 1 To Request("no")
				If Request("DownSite" & i & "") <> "" Then
					SQL = "select * from NC_SoftSite where (ID is null)"
					SiteRs.Open SQL, Conn, 1, 3
					SiteRs.addnew
					SiteRs("SiteName") = Request.Form("SiteName" & i & "")
					SiteRs("DownSite") = Request.Form("DownSite" & i & "")
					SiteRs("sortid") = strSortid(1)
					SiteRs("SoftID") = pubSoftID
					SiteRs("serverid") = Request.Form("serverid" & i & "")
					SiteRs.Update
					SiteRs.Close
				End If
			Next
			Set SiteRs = Nothing
		End If
		Set Rs = Nothing
		'//////生成HTML//////
		If Request.form("isCreateHtml")="yes" then
			Dim DownloadClass
			Set DownloadClass = New Create_SoftInfo_Cls
			DownloadClass.CreateSoftInfo(pubSoftID)
			Set DownloadClass = Nothing
		End If
		NC_Admin.Succeed_Msg ("<li>添加" & Request.Form("softname") & "成功!</li>")
		Response.Write "<meta http-equiv=""refresh"" content=""2;url='" & Request.ServerVariables("HTTP_REFERER") & "'"">" & vbCrLf
	End If
End Sub


Private Sub savemodify()
	Dim SoftType,mm
	SoftType = Split(DownsysClass.Setting(35), ",")
	 mm = Trim(Request("ado"))
	Call checksave
	Dim ChangedStr
	If CInt(DownsysClass.Setting(44)) = 1 Then
		ChangedStr = DownsysClass.mainset(43)
		ChangedStr = Replace(ChangedStr, "{$Now}", Now())
		ChangedStr = "[br][align=right]" & ChangedStr & "[/align]"
	End If
	If Founderr = False Then
		SQL = "select * from NC_SoftInfo where softid=" & Request("softid")
		Rs.Open SQL, Conn, 1, 3
		Rs("softname") = DownsysClass.ChkFormStr(Request.Form("softname"))
		Rs("SoftVer") = DownsysClass.ChkFormStr(Request.Form("SoftVer"))
		Rs("rootid") = strSortid(0)
		Rs("sortid") = strSortid(1)
		Rs("SortName") = strSortid(2)
		Rs("content") = TxtContent & ChangedStr
		Rs("Language") = Request.Form("Language")
		Rs("SoftType") = Request.Form("SoftType")
		Rs("isCommend") = Request.Form("isCommend")
		Rs("RunSystem") = DownsysClass.ChkFormStr(Request.Form("RunSystem"))
		Rs("impower") = Request.Form("impower")
		If Trim(Request.Form("SizeUnit")) = "MB" Then
			Rs("SoftSize") = CLng(Request.Form("SoftSize") * 1024)
		Else
			Rs("SoftSize") = CLng(Request.Form("SoftSize"))
		End If
		Rs("Grades") = Request.Form("Grades")