admin_config.asp

非常好的源码 非常好的源码 非常好的源码

<!--#include file=admin_login_check.asp-->
<%
SiteLink
Function SiteLink
%>
<form name="pollform3sdx" method="post" action="admin_config.asp">
<input type="hidden" name="SubmitFlag" value=yes>
  <table width="100%" border="0" align="center" cellpadding="8" cellspacing="0">
    <tr><td style="line-height:1.8;"><b>WAP站长论坛导航系统【教学版】</b><br>
<font color=000000 class=GrayFont>(下面是您网站的设置参数，请注意修改)
  </td></tr>
<tr><td>
<%
If Request("SubmitFlag") <> "" Then
		save
		Response.Write "<br>成功完成设置！"
		Exit Function
Else
	DisplayDatabaseLink
End If
%>
  </td></tr>
<tr><td height="40" align="center">
<input type=submit name=提交 value=提　交 class=fmbtn>　
<input type=reset name=取消 value=取　消 class=fmbtn>
  </td></tr>
</table>
</form>
<%

End Function


Function DisplayDatabaseLink
		set rs = Server.CreateObject("adodb.recordset")
		sql = "select * from config"
		rs.open sql,Conn,1,1
		if not (rs.eof and rs.bof) then

		%>
		
<table width="100%" border=0 align="center" cellpadding=5 cellspacing=1 bgcolor=#cccccc class=TBone>
  <tr bgcolor=#f7f7f7 class=TBBG9> 
    <td width=140>本WAP站地址</td>
    <td colspan="2">http://<%=Request.ServerVariables("SERVER_NAME")%></td>
  </tr>
  <tr bgcolor=#f7f7f7 class=TBBG9> 
    <td>站点名称</td>
    <td colspan="2"><input name="title" type="text" value="<%=rs("title")%>" class=fminpt size="30" maxlength="255"> 
      <font color=gray>(最长255字)</font></td>
  </tr>
  <tr bgcolor=#f7f7f7 class=TBBG9> 
    <td height="27">站点Logo</td>
    <td colspan="2"><input  name="Logo" size="30" value="<%=rs("logo")%>" class=fminpt maxlength="255"></td>
  </tr>
  <tr bgcolor=#f7f7f7 class=TBBG9> 
    <td>版权信息</td>
    <td colspan="2"> <input name="copyright" type="text" class=fminpt value="<%=rs("Copyright")%>" size="30" maxlength="255"></td>
  </tr>
  			<tr bgcolor=#f7f7f7 class=TBBG9> 
   			 <td class="tar">栏目排序：</td>
   			 <td><select name="classID" value="<%=rs("const")%>" >
			<option value="left"
			 <%if rs("const")="left" then%> 
			selected 
			<%end if%>
			>向左对齐</option>
			<option value="center"
			 <%if rs("const")="center" then%>
			 selected
			<%end if%>
			 >居中对齐</option>
			<option value="right" 
			<%if rs("const")="right" then%>
			 selected 
			<%end if%>
			>向右对齐</option>
			</select>
      			</td>
  			</tr>
</table>
		<%
else

		%>
		
<table width="100%" border=0 align="center" cellpadding=5 cellspacing=1 bgcolor=#cccccc class=TBone>
  <tr bgcolor=#f7f7f7 class=TBBG9> 
    <td width=140>本WAP站地址</td>
    <td colspan="2">http://<%=Request.ServerVariables("SERVER_NAME")%></td>
  </tr>
  <tr bgcolor=#f7f7f7 class=TBBG9> 
    <td>站点名称</td>
    <td colspan="2"><input name="title" type="text" class=fminpt size="30" maxlength="255"> 
      <font color=gray>(最长255字)</font></td>
  </tr>
  <tr bgcolor=#f7f7f7 class=TBBG9> 
    <td height="27">站点Logo</td>
    <td colspan="2"><input  name="Logo" size="30"  class=fminpt maxlength="255"></td>
  </tr>
  <tr bgcolor=#f7f7f7 class=TBBG9> 
    <td>版权信息</td>
    <td colspan="2"> <input name="copyright" type="text" class=fminpt size="30" maxlength="255"></td>
  </tr>
  			<tr bgcolor=#f7f7f7 class=TBBG9> 
   			 <td class="tar">栏目排序：</td>
   			 <td><select name="classID" >
			<option value="left">向左对齐</option>
			<option value="center">居中对齐</option>
			<option value="right" >向右对齐</option>
			</select>
      			</td>
  			</tr>
</table>
		<%
end if
		rs.close
		set rs=nothing

End Function
Function save
	dim flag,errmsg,title,name,classID,logo
	flag=1
	errmsg="<ul><font color=red>"
	title=TRim(Request.Form("title"))
	copyright=TRim(Request.Form("copyright"))
	logo=TRim(Request.Form("logo"))
	classID=TRim(Request.Form("classID"))
	if title=""  then errmsg=errmsg&"<li>标题不能为空</li>":flag=0
	if copyright=""  then errmsg=errmsg&"<li>版权信息不能为空</li>":flag=0
	if classID=""  then errmsg=errmsg&"<li>排序不能为空</li>":flag=0
		if flag<>0 then
			Dim sql,rs
			set rs=server.CreateObject("adodb.recordset")
			sql="select * from config"
			rs.open sql,conn,1,3
			if not (rs.eof and rs.bof) then
			else
				rs.addnew()
			end if
					rs("title")=title
					rs("copyright")=copyright
					rs("const")=classID
					rs("logo")=logo
				rs.update()
				errmsg=errmsg&"</font></ul>"
		else
			Response.Write("由于以下原因，设置没有成功，请<a href='javascript:history.back()'>返回</a>修改：<br>"&errmsg&"<br><button  onclick='javascript:history.back()'>返回修改</button>") 
		
		end if	
End Function
%>