admin_config.asp

图书管理系统图书管理系统图书管理系统图书管理系统图书管理系统图书管理系统图书管理系统图书管理系统图书管理系统

          <tr>
            <td align="center" width="688" bgcolor="#eeeeee" height="35">            <table width="100%"  border="0" cellspacing="0" cellpadding="0">
              <tr>
                <td><div align="center">
                  <input type="submit" value="确认设置" name="B1">
                </div></td>
                <td><div align="center">
                  <input type="reset" value="取消设置" name="B1">
                </div></td>
              </tr>
            </table></td>
          </tr>
        </table>
<%rs.close
	conn.close
	set rs=nothing
	set conn=nothing
%>
      </form>
    </td>
  </tr>
</table>
<%end sub%>
<%sub config
dim WebName,Weburl,WebLogo,WebAlt,ChannelName,webemail,emailkg,servesmtp,servemail,servekey,mailuserdomain,MaxLine,LineNum,LineLogo,inpc,MaxPageSize,CacheTime,HitsTime,hxCacheName,url1,url2,url3
WebName=request.form("WebName")
Weburl=request.form("Weburl")
WebLogo=request.form("WebLogo")
WebAlt=request.form("WebAlt")
ChannelName=request.form("ChannelName")
webemail=request.form("webemail")
emailkg=request.form("emailkg")
servesmtp=request.form("servesmtp")
servemail=request.form("servemail")
servekey=request.form("servekey")
mailuserdomain=request.form("mailuserdomain")
MaxLine=request.form("MaxLine")
LineNum=request.form("LineNum")
LineLogo=request.form("LineLogo")
inpc=request.form("inpc")
MaxPageSize=request.form("MaxPageSize")
CacheTime=request.form("CacheTime")
HitsTime=request.form("HitsTime")
hxCacheName=request.form("hxCacheName")
url1=Left(Weburl,7)
url2=Left(Weburl,14)
url3=right(Weburl,1)

dim blnerror,strerror,id,rs,sql
blnerror=false

if url1<>"http://" then
	blnerror=true
	strerror="<li>请正确输入网址，必须含'http://'！</li>"
end if
if url2="http://http://" then
	blnerror=true
	strerror="<li>请正确输入网址，必须含'http://'！</li>"
end if
if url3<>"/" then
	blnerror=true
	strerror="<li>网址最后要加'/'！</li>"
end if
if CInt(request.form("MaxLine"))<CInt(request.form("LineLogo")) then
	blnerror=true
	strerror="<li>显示图片链接的行数必须小于最多显示多少行的行数！</li>"
end if
'增强邮箱和网址的判断
if webemail<>"" and not CheckEmail(webemail) then
	blnerror = true
	strerror = strerror & "<li>联系邮箱不正确！</li>"
end if
'if not CheckUrl(Weburl) then   '取消网址判断，否则使用类似链接系统的用户无法互相申请
'	blnerror = true
'	strerror = strerror & "<li>网址不正确！</li>"
'end if

if emailkg="1" and (servesmtp="" or servemail="" or servekey="") then
	blnerror=true
	strerror="<li>使用邮件功能必须填写邮件服务器SMTP地址、帐号和登录密码！</li>"
end if
if Instr(servemail,"@")<>0 and mailuserdomain="" then
	blnerror=true
	strerror="<li>若用“[e-mail]”这样的帐号登录时，请指明邮件服务器域名为“ttdv.cn”！</li>"
end if
if blnerror=true then
	response.write strerror
	response.write "<p><< <a href=""javascript:history.go(-1)"">返回上一页 </a></p>"
else


 id=request("id")
 set rs=server.createobject("adodb.recordset")
sql="select * from [tt_config] "
rs.open sql,conn,1,3

rs("WebName")=request("WebName")
rs("Weburl")=request("Weburl")
rs("WebAlt")=request("WebAlt")
rs("WebLogo")=request("WebLogo")
rs("ChannelName")=request("ChannelName")
rs("webemail")=request("webemail")
rs("emailkg")=request("emailkg")
rs("servesmtp")=request("servesmtp")
rs("servemail")=request("servemail")
rs("servekey")=request("servekey")
rs("mailuserdomain")=request("mailuserdomain")
if trim(request("MaxLine"))="" then
rs("MaxLine")=0
else
rs("MaxLine")=trim(request("MaxLine"))
end if
if trim(request("LineNum"))="" then
rs("LineNum")=0
else
rs("LineNum")=trim(request("LineNum"))
end if
if trim(request("LineLogo"))="" then
rs("LineLogo")=0
else
rs("LineLogo")=trim(request("LineLogo"))
end if
if trim(request("inpc"))="" then
rs("inpc")=0
else
rs("inpc")=request("inpc")
end if
if trim(request("MaxPageSize"))="" then
rs("MaxPageSize")=0
else
rs("MaxPageSize")=trim(request("MaxPageSize"))
end if
if trim(request("CacheTime"))="" then
rs("CacheTime")=0
else
rs("CacheTime")=trim(request("CacheTime"))
end if
if trim(request("HitsTime"))="" then
rs("HitsTime")=0
else
rs("HitsTime")=trim(request("HitsTime"))
end if

rs("Isanti")=request("Isanti")
rs("IPanti")=request("IPanti")
rs("IsVerify")=request("IsVerify")
rs("IsDomainLimit")=request("IsDomainLimit")
rs("FilterWord")=request("FilterWord")
rs("FilterDomain")=request("FilterDomain")
rs("skin")=request("skin")
rs("IsDeBug")=request("IsDeBug")
rs("IsSqlDataBase")=request("IsSqlDataBase")
rs("hxCacheName")=request("hxCacheName")



    rs.update
    response.write "<script language=JavaScript>" & chr(13) & "alert('修改成功！');" &"window.location='admin_config.asp?id=1'" & "</script>"
    response.end
    
    rs.close
	conn.close
	set rs=nothing
	set conn=nothing
 end if
    end sub
'邮箱验证
Function CheckEmail(str)
		Dim re,a
		Set re = New RegExp
		re.IgnoreCase = True
		re.Global = True
		re.Pattern = "\w+([-+.]\w+)*@\w+([-.]\w+)*\.\w+([-.]\w+)*"
		a = re.Test(str)
		If a then 
			CheckEmail = True
		Else
			CheckEmail = False	
  End If	
end function
'网址验证
Function CheckUrl(str)
  Dim re,a
  Set re = New RegExp
  re.Pattern = "^https?:\/\/[\u4E00-\u9FA5a-zA-Z\.\/0-9]{3,}[\u4E00-\u9FA5a-zA-Z\/0-9]{2,}$" 
  re.IgnoreCase = False 
  a = re.Test(str)
  If a Then
    CheckUrl = true
  Else
    CheckUrl = false
  End If
End Function
%>