📄 admin_ceo.asp

📁 不错的个人网站
💻 ASP
字号:
<!--#include file="inc/CEO.asp"-->
<!--#include file="inc/HZC.asp"-->
<%
if session("adminlogin")<>sessionvar then
  founderr=true
Response.Write("<LINK href=inc/admin.css type=text/css rel=StyleSheet><p align=center><font color=#FFFFFF><br><br>您还没有登录或者登录已超时，请重新登录！</font></p>")
  response.end
else%>
<HTML><HEAD><TITLE>管理中心</TITLE>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<LINK href="inc/admin.css" type=text/css rel=StyleSheet>
<META content="MSHTML 6.00.2800.1126" name=GENERATOR>
</HEAD>
<body onkeydown=return(!(event.keyCode==78&&event.ctrlKey)) >
<%
select case Request("menu")
case ""
config
case "config"
config
case "configok"
configok
end select
sub config%>



<table width=98% align="center" border="1" cellspacing="0" cellpadding="4" class=lanyubk style="border-collapse: collapse">
<form method="post" action="?menu=configok">

<tr class=lanyuss>
<td colspan="2" height="25">站长的基本资料</td>
</tr>


<tr class=lanyuds>
<td height="25" width="80">照片地址：</td>
<td width="*" height="25"><input size="80" value="<%=ceo_pic%>" name="ceo_pic"></td>
</tr>
<tr class=lanyuds>
<td height="25" width="80">网名：</td>
<td width="*" height="25"><input size="80" value="<%=ceo_name%>" name="ceo_name"></td>
</tr>
<tr class=lanyuds>
<td height="25" width="80">来自：</td>
<td width="*" height="25"><input size="80" value="<%=ceo_from%>" name="ceo_from"></td>
</tr>
<tr class=lanyuds>
<td height="25" width="80">生肖：</td>
<td width="*" height="25"><input size="80" value="<%=ceo_sq%>" name="ceo_sq"></td>
</tr>
<tr class=lanyuds>
<td height="25" width="80">出生：</td>
<td width="*" height="25"><input size="80" value="<%=ceo_b%>" name="ceo_b"></td>
</tr>
<tr class=lanyuds>
<td height="25" width="80">年龄：</td>
<td width="*" height="25"><input size="80" value="<%=ceo_y%>" name="ceo_y"></td>
</tr>
<tr class=lanyuds>
<td height="25" width="80">星座：</td>
<td width="*" height="25"><input size="80" value="<%=ceo_s%>" name="ceo_s"></td>
</tr>
<tr class=lanyuds>
<td height="25" width="80">血型：</td>
<td width="*" height="25"><input size="80" value="<%=ceo_x%>" name="ceo_x"></td>
</tr>
<tr class=lanyuds>
<td height="25" width="80">第一次做网页：</td>
<td width="*" height="25"><input size="80" value="<%=ceo_m%>" name="ceo_m"></td>
</tr>
<tr class=lanyuds>
<td height="25" width="80">身高：</td>
<td width="*" height="25"><input size="80" value="<%=ceo_t%>" name="ceo_t"></td>
</tr>
<tr class=lanyuds>
<td height="25" width="80">体重：</td>
<td width="*" height="25"><input size="80" value="<%=ceo_w%>" name="ceo_w"></td>
</tr>
<tr class=lanyuds>
<td height="25" width="80">爱好：</td>
<td width="*" height="25"><input size="80" value="<%=ceo_h%>" name="ceo_h"></td>
</tr>
<tr class=lanyuds>
<td height="25" width="80">QQ：</td>
<td width="*" height="25"><input size="80" value="<%=ceo_qq%>" name="ceo_qq"></td>
</tr>
<tr class=lanyuds>
<td height="25" width="80">E-MAIL：</td>
<td width="*" height="25"><input size="80" value="<%=ceo_e%>" name="ceo_e"></td>
</tr>
<tr class=lanyuds>
<td height="25" width="80">手机：</td>
<td width="*" height="25"><input size="80" value="<%=ceo_mo%>" name="ceo_mo"></td>
</tr>
<tr class=lanyuds>
<td height="25" width="80">最崇拜的人：</td>
<td width="*" height="25"><input size="80" value="<%=ceo_p%>" name="ceo_p"></td>
</tr>
<tr class=lanyuds>
<td height="25" width="80">座右铭：</td>
<td width="*" height="25"><input size="80" value="<%=ceo_z%>" name="ceo_z"></td>
</tr>



<tr class=lanyuqs>
<td colspan="2" align="center"><input type="submit" value="提  交"></td>
</tr>



</table>
<%
end sub
Sub ADODB_SaveToFile(ByVal strBody,ByVal File)
	On Error Resume Next
	Dim objStream,FSFlag,fs,WriteFile
	FSFlag = 1
	If DEF_FSOString <> "" Then
		Set fs = Server.CreateObject(DEF_FSOString)
		If Err Then
			FSFlag = 0
			Err.Clear
			Set fs = Nothing
		End If
	Else
		FSFlag = 0
	End If
	
	If FSFlag = 1 Then
		Set WriteFile = fs.CreateTextFile(Server.MapPath(File),True)
		WriteFile.Write strBody
		WriteFile.Close
		Set Fs = Nothing
	Else
		Set objStream = Server.CreateObject("ADODB.Stream")
		If Err.Number=-2147221005 Then 
			GBL_CHK_TempStr = "您的主机不支持ADODB.Stream，无法完成操作，请使用FTP等功能，将<font color=Red >inc/CEO.asp</font>文件内容替换成框中内容"
			Err.Clear
			Set objStream = Noting
			Exit Sub
		End If
		With objStream
			.Type = 2
			.Open
			.Charset = "GB2312"
			.Position = objStream.Size
			.WriteText = strBody
			.SaveToFile Server.MapPath(File),2
			.Close
		End With
		Set objStream = Nothing
	End If
End Sub
sub configok
ceo_pic = replace(Trim(Request.Form("ceo_pic")),CHR(34),"'")
ceo_name = replace(Trim(Request.Form("ceo_name")),CHR(34),"'")
ceo_from = replace(Trim(Request.Form("ceo_from")),CHR(34),"'")
ceo_sq = replace(Trim(Request.Form("ceo_sq")),CHR(34),"'")
ceo_b = replace(Trim(Request.Form("ceo_b")),CHR(34),"'")
ceo_y = replace(Trim(Request.Form("ceo_y")),CHR(34),"'")
ceo_s = replace(Trim(Request.Form("ceo_s")),CHR(34),"'")
ceo_x = replace(Trim(Request.Form("ceo_x")),CHR(34),"'")
ceo_m = replace(Trim(Request.Form("ceo_m")),CHR(34),"'")
ceo_t = replace(Trim(Request.Form("ceo_t")),CHR(34),"'")
ceo_w = replace(Trim(Request.Form("ceo_w")),CHR(34),"'")
ceo_h = replace(Trim(Request.Form("ceo_h")),CHR(34),"'")
ceo_qq = replace(Trim(Request.Form("ceo_qq")),CHR(34),"'")
ceo_e = replace(Trim(Request.Form("ceo_e")),CHR(34),"'")
ceo_mo = replace(Trim(Request.Form("ceo_mo")),CHR(34),"'")
ceo_p = replace(Trim(Request.Form("ceo_p")),CHR(34),"'")
ceo_z = replace(Trim(Request.Form("ceo_z")),CHR(34),"'")

Dim n,TempStr
	TempStr = ""
	TempStr = TempStr & chr(60) & "%" & VbCrLf
	TempStr = TempStr & "dim ceo_pic,ceo_name,ceo_from,ceo_sq,ceo_b,ceo_y,ceo_s,ceo_x,ceo_m,ceo_t,ceo_w,ceo_h,ceo_qq,ceo_e,ceo_mo,ceo_p,ceo_z" & VbCrLf

	TempStr = TempStr & "ceo_pic="& Chr(34) & ceo_pic & Chr(34) &" " & VbCrLf
	TempStr = TempStr & "ceo_name="& Chr(34) & ceo_name & Chr(34) &" " & VbCrLf
	TempStr = TempStr & "ceo_from="& Chr(34) & ceo_from & Chr(34) &" " & VbCrLf
	TempStr = TempStr & "ceo_sq="& Chr(34) & ceo_sq & Chr(34) &" " & VbCrLf
	TempStr = TempStr & "ceo_b="& Chr(34) & ceo_b & Chr(34) &" " & VbCrLf
	TempStr = TempStr & "ceo_y="& Chr(34) & ceo_y & Chr(34) &" " & VbCrLf
	TempStr = TempStr & "ceo_s="& Chr(34) & ceo_s & Chr(34) &" " & VbCrLf
	TempStr = TempStr & "ceo_x="& Chr(34) & ceo_x & Chr(34) &" " & VbCrLf
	TempStr = TempStr & "ceo_m="& Chr(34) & ceo_m & Chr(34) &" " & VbCrLf
	TempStr = TempStr & "ceo_t="& Chr(34) & ceo_t & Chr(34) &" " & VbCrLf
	TempStr = TempStr & "ceo_w="& Chr(34) & ceo_w & Chr(34) &" " & VbCrLf
	TempStr = TempStr & "ceo_h="& Chr(34) & ceo_h & Chr(34) &" " & VbCrLf
	TempStr = TempStr & "ceo_qq="& Chr(34) & ceo_qq & Chr(34) &" " & VbCrLf
	TempStr = TempStr & "ceo_e="& Chr(34) & ceo_e & Chr(34) &" " & VbCrLf
	TempStr = TempStr & "ceo_mo="& Chr(34) & ceo_mo & Chr(34) &" " & VbCrLf
	TempStr = TempStr & "ceo_p="& Chr(34) & ceo_p & Chr(34) &" " & VbCrLf
	TempStr = TempStr & "ceo_z="& Chr(34) & ceo_z & Chr(34) &" " & VbCrLf



	TempStr = TempStr & "%" & chr(62) & VbCrLf
		ADODB_SaveToFile TempStr,"inc/CEO.asp"
	If GBL_CHK_TempStr = "" Then
Response.Write "<table width=""98%"" align=""center"" border=""1"" cellspacing=""0"" cellpadding=""4"" class=lanyubk style=""border-collapse: collapse""><tr><td class=lanyuss>公告管理</td></tr><tr class=lanyuds><td align=""center"" height=""66"">&gt;更新成功&lt;</td></tr></table>"
Else
		%><table width=""98%"" align=""center"" border=""1"" cellspacing=""0"" cellpadding=""4"" class=lanyubk style=""border-collapse: collapse""><tr><td class=lanyuss>公告管理</td></tr><tr class=lanyuds><td align=""center"" height=""66"">&gt;<%=GBL_CHK_TempStr%>&lt;<br><br>
		<textarea name="fileContent" cols="80" rows="30"><%=Server.htmlencode(TempStr)%></textarea></td></tr></table><%
		GBL_CHK_TempStr = ""
	End If
End Sub
end if%>
💿 文件大小 676 K
👤 上传用户 QQ
📂 所属分类 Internet/网络编程
🏷️ 相关标签

#网站
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -