setsite.asp
来自「生成html的ASP企业站点,可以进行二次开发的」· ASP 代码 · 共 437 行 · 第 1/2 页
ASP
437 行
<td class="forumRowHighlight"><input name="ProSortName" type="text" id="ProSortName" style="width: 180" value="<%=ProSortName%>"> <font color="red">*</font></td>
</tr>
<tr>
<td align="right" class="forumRow">产品详细页生成前缀：</td>
<td class="forumRowHighlight"><input name="ProName" type="text" id="ProName" style="width: 180" value="<%=ProName%>"> <font color="red">*</font></td>
</tr>
<tr>
<td align="right" class="forumRow">下载分类生成前缀：</td>
<td class="forumRowHighlight"><input name="DownSortName" type="text" id="DownSortName" style="width: 180" value="<%=DownSortName%>"> <font color="red">*</font></td>
</tr>
<tr>
<td align="right" class="forumRow">下载详细页生成前缀：</td>
<td class="forumRowHighlight"><input name="DownNameDiy" type="text" id="DownNameDiy" style="width: 180" value="<%=DownNameDiy%>"> <font color="red">*</font></td>
</tr>
<tr>
<td align="right" class="forumRow">其他信息分类生成前缀：</td>
<td class="forumRowHighlight"><input name="OtherSortName" type="text" id="OtherSortName" style="width: 180" value="<%=OtherSortName%>"> <font color="red">*</font></td>
</tr>
<tr>
<td align="right" class="forumRow">其他信息详细页生成前缀：</td>
<td class="forumRowHighlight"><input name="OtherName" type="text" id="OtherName" style="width: 180" value="<%=OtherName%>"> <font color="red">*</font></td>
</tr>
<tr>
<td align="right" class="forumRow">人才分类生成前缀：</td>
<td class="forumRowHighlight"><input name="JobSortName" type="text" id="JobSortName" style="width: 180" value="<%=JobSortName%>"> <font color="red">*</font></td>
</tr>
<tr>
<td align="right" class="forumRow">人才详细页生成前缀：</td>
<td class="forumRowHighlight"><input name="JobNameDiy" type="text" id="JobNameDiy" style="width: 180" value="<%=JobNameDiy%>"> <font color="red">*</font></td>
</tr>
<tr>
<td align="right" class="forumRow">企业信息生成前缀：</td>
<td class="forumRowHighlight"><input name="AboutNameDiy" type="text" id="AboutNameDiy" style="width: 180" value="<%=AboutNameDiy%>"> <font color="red">*</font></td>
</tr>
<tr>
<td align="right" class="forumRow">分隔符：</td>
<td class="forumRowHighlight"><input name="Separated" type="text" id="Separated" style="width: 80" value="<%=Separated%>"> <font color="red">*</font> 如：New-1.html中的“-”即为分隔符</td>
</tr>
<tr>
<td align="right" class="forumRow"></td>
<td class="forumRowHighlight"><input name="submitSaveEdit" type="submit" id="submitSaveEdit" value="保存附加参数设置">
</td>
</tr>
</form>
</table>
</BODY>
</HTML>
<%
function SaveSiteInfo()
if len(trim(request.Form("SiteTitleCh")))<1 or len(trim(request.Form("SiteTitleEn")))<1 then
response.write ("<script language=javascript> alert('""中文，英文""网站标题不能少于1个字符！');history.back(-1);</script>")
response.end
end if
if len(trim(request.Form("SiteUrl")))<10 then
response.write ("<script language=javascript> alert('网站网址不能为空，具不少于10个字符！');history.back(-1);</script>")
response.end
end if
if len(trim(request.Form("SiteUrl")))<9 then
response.write "<script language='JavaScript'>alert('请详细填写您的公司网址！');" & "history.back()" & "</script>"
response.end
end if
if len(trim(request.Form("ComNameCh")))<1 or len(trim(request.Form("ComNameEn")))<1 then
response.write ("<script language=javascript> alert('""中文，英文""公司名称不能少于1个字符！');history.back(-1);</script>")
response.end
end if
if len(trim(request.Form("AddressCh")))<1 or len(trim(request.Form("AddressEn")))<1 then
response.write ("<script language=javascript> alert('""中文，英文""公司地址不能少于3个字符！');history.back(-1);</script>")
response.end
end if
if len(trim(request.Form("ZipCode")))<6 then
response.write "<script language='JavaScript'>alert('请详细填写邮政编码并保持至少在6个字符以上！');" & "history.back()" & "</script>"
response.end
end if
if len(trim(request.Form("Telephone")))<11 then
response.write "<script language='JavaScript'>alert('请详细填写联系电话并保持至少在11个字符以上！');" & "history.back()" & "</script>"
response.end
end if
if len(trim(request.Form("Fax")))<11 then
response.write "<script language='JavaScript'>alert('请详细填写传真号码并保持至少在11个字符以上！');" & "history.back()" & "</script>"
response.end
end if
if len(trim(request.Form("Email")))<6 then
response.write "<script language='JavaScript'>alert('请详细填写电子邮箱地址并保持至少在6个字符以上！');" & "history.back()" & "</script>"
response.end
end if
dim rs,sql
set rs = server.createobject("adodb.recordset")
sql="select top 1 * from LiangJingCMS_Site"
rs.open sql,conn,1,3
rs("SiteTitleCH")=trim(Request.Form("SiteTitleCH"))
rs("SiteTitleEN")=trim(Request.Form("SiteTitleEN"))
rs("SiteUrl")=trim(Request.Form("SiteUrl"))
rs("ComNameCH")=trim(Request.Form("ComNameCH"))
rs("ComNameEN")=trim(Request.Form("ComNameEN"))
rs("AddressCH")=trim(Request.Form("AddressCH"))
rs("AddressEN")=trim(Request.Form("AddressEN"))
rs("ZipCode")=trim(Request.Form("ZipCode"))
rs("Telephone")=trim(Request.Form("Telephone"))
rs("Fax")=trim(Request.Form("Fax"))
rs("Email")=trim(Request.Form("Email"))
rs("Emap")=trim(Request.Form("Emap"))
rs("KeywordsCH")=trim(Request.Form("KeywordsCH"))
rs("KeywordsEN")=trim(Request.Form("KeywordsEN"))
rs("DescriptionsCH")=trim(Request.Form("DescriptionsCH"))
rs("DescriptionsEN")=trim(Request.Form("DescriptionsEN"))
rs("IcpNumber")=trim(Request.Form("IcpNumber"))
rs("Video")=trim(Request.Form("Video"))
if Request.Form("MesViewFlag")=1 then
rs("MesViewFlag")=Request.Form("MesViewFlag")
Conn.execute "alter table LiangJingCMS_Message alter column ViewFlagCh bit default 1"
Conn.execute "alter table LiangJingCMS_Message alter column ViewFlagEn bit default 1"
else
rs("MesViewFlag")=0
Conn.execute "alter table LiangJingCMS_Message alter column ViewFlagCh bit default 0"
Conn.execute "alter table LiangJingCMS_Message alter column ViewFlagEn bit default 0"
end if
if Request.Form("ssp")=1 then
rs("ssp")=Request.Form("ssp")
Conn.execute "alter table LiangJingCMS_Message alter column sspCh bit default 1"
Conn.execute "alter table LiangJingCMS_Message alter column sspEn bit default 1"
else
rs("ssp")=0
Conn.execute "alter table LiangJingCMS_Message alter column sspCh bit default 0"
Conn.execute "alter table LiangJingCMS_Message alter column sspEn bit default 0"
end if
dim rsssite
if request.form("rssnews") = 1 then
rsssite = rsssite + "n"
end if
if request.form("rssporodute") = 1 then
rsssite = rsssite + "p"
end if
if request.form("rssdown") = 1 then
rsssite = rsssite + "d"
end if
rs("rsssite") = rsssite
rs.update
rs.close
set rs=nothing
response.write "<script language='javascript'>alert('系统主参数设置成功！');location.replace('SetSite.asp');</script>"
end function
function ViewSiteInfo()
dim rs,sql
set rs = server.createobject("adodb.recordset")
sql="select top 1 * from LiangJingCMS_Site"
rs.open sql,conn,1,1
if rs.bof and rs.eof then
response.write ("<br><br><div align=""center""><font style=""color:red;font-size:9pt; "")>数据库记录读取错误！</font></div>")
response.end
else
SiteTitleCH=rs("SiteTitleCH")
SiteTitleEN=rs("SiteTitleEN")
SiteUrl=rs("SiteUrl")
ComNameCH=rs("ComNameCH")
ComNameEN=rs("ComNameEN")
AddressCH=rs("AddressCH")
AddressEN=rs("AddressEN")
ZipCode=rs("ZipCode")
Telephone=rs("Telephone")
Fax=rs("Fax")
Email=rs("Email")
Emap=rs("Emap")
KeywordsCH=rs("KeywordsCH")
KeywordsEN=rs("KeywordsEN")
DescriptionsCH=rs("DescriptionsCH")
DescriptionsEN=rs("DescriptionsEN")
IcpNumber=rs("IcpNumber")
MesViewFlag=rs("MesViewFlag")
Video=rs("Video")
ssp=rs("ssp")
rsscode=rs("rssSite")
rs.close
set rs=nothing
end if
End Function
Function SaveConstInfo()
set fso=Server.CreateObject("Scripting.FileSystemObject")
set hf=fso.CreateTextFile(Server.mappath("../Include/Const.asp"),true)
hf.write "<" & "%" & vbcrlf
hf.write "Const SysRootDir = " & chr(34) & ReplaceConstChar(trim(request("SysRootDir"))) & chr(34) & "" & vbcrlf
hf.write "Const SiteDataPath = " & chr(34) & ReplaceConstChar(trim(request("SiteDataPath"))) & chr(34) & "" & vbcrlf
hf.write "Const SiteDataBakPath = " & chr(34) & ReplaceConstChar(trim(request("SiteDataBakPath"))) & chr(34) & "" & vbcrlf
hf.write "Const StatDataPath = " & chr(34) & ReplaceConstChar(trim(request("StatDataPath"))) & chr(34) & "" & vbcrlf
hf.write "Const StatDataBakPath = " & chr(34) & ReplaceConstChar(trim(request("StatDataBakPath"))) & chr(34) & "" & vbcrlf
hf.write "Const EnableStopInjection = " & ReplaceConstChar(trim(request("EnableStopInjection"))) & "" & vbcrlf
hf.write "Const Kill_ip = " & ReplaceConstChar(trim(request("Kill_ip"))) & "" & vbcrlf
hf.write "Const Refresh = " & ReplaceConstChar(trim(request("Refresh"))) & "" & vbcrlf
hf.write "Const NewInfo = " & ReplaceConstChar(trim(request("NewInfo"))) & "" & vbcrlf
hf.write "Const ProInfo = " & ReplaceConstChar(trim(request("ProInfo"))) & "" & vbcrlf
hf.write "Const JobInfo = " & ReplaceConstChar(trim(request("JobInfo"))) & "" & vbcrlf
hf.write "Const DownInfo = " & ReplaceConstChar(trim(request("DownInfo"))) & "" & vbcrlf
hf.write "Const OtherInfo = " & ReplaceConstChar(trim(request("OtherInfo"))) & "" & vbcrlf
hf.write "Const MessageInfo = " & ReplaceConstChar(trim(request("MessageInfo"))) & "" & vbcrlf
hf.write "Const ISHTML = " & ReplaceConstChar(trim(request("ISHTML"))) & "" & vbcrlf
hf.write "Const HTMLName = " & chr(34) & ReplaceConstChar(trim(request("HTMLName"))) & chr(34) & "" & vbcrlf
hf.write "Const NewSortName = " & chr(34) & ReplaceConstChar(trim(request("NewSortName"))) & chr(34) & "" & vbcrlf
hf.write "Const NewName = " & chr(34) & ReplaceConstChar(trim(request("NewName"))) & chr(34) & "" & vbcrlf
hf.write "Const ProSortName = " & chr(34) & ReplaceConstChar(trim(request("ProSortName"))) & chr(34) & "" & vbcrlf
hf.write "Const ProName = " & chr(34) & ReplaceConstChar(trim(request("ProName"))) & chr(34) & "" & vbcrlf
hf.write "Const DownSortName = " & chr(34) & ReplaceConstChar(trim(request("DownSortName"))) & chr(34) & "" & vbcrlf
hf.write "Const DownNameDiy = " & chr(34) & ReplaceConstChar(trim(request("DownNameDiy"))) & chr(34) & "" & vbcrlf
hf.write "Const OtherSortName = " & chr(34) & ReplaceConstChar(trim(request("OtherSortName"))) & chr(34) & "" & vbcrlf
hf.write "Const OtherName = " & chr(34) & ReplaceConstChar(trim(request("OtherName"))) & chr(34) & "" & vbcrlf
hf.write "Const JobSortName = " & chr(34) & ReplaceConstChar(trim(request("JobSortName"))) & chr(34) & "" & vbcrlf
hf.write "Const JobNameDiy = " & chr(34) & ReplaceConstChar(trim(request("JobNameDiy"))) & chr(34) & "" & vbcrlf
hf.write "Const AboutNameDiy = " & chr(34) & ReplaceConstChar(trim(request("AboutNameDiy"))) & chr(34) & "" & vbcrlf
hf.write "Const Separated = " & chr(34) & ReplaceConstChar(trim(request("Separated"))) & chr(34) & "" & vbcrlf
hf.write "%" & ">"
hf.close
set hf=nothing
set fso=nothing
response.Write "<script language=javascript>alert('系统附加参数设置成功！');location.href='SetSite.asp';</script>"
End Function
%>⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?