?? uot.asp
字號:
<!--#include file="boardconn.asp"-->
<!--#include file="inc/sql.asp"-->
<!--#include file="inc/inc.asp"-->
<!--#include file="inc/ip.asp"-->
<!--#include file="inc/const.asp"-->
<!--#include file="inc/ubb.asp"-->
<%
Dim Action
Action=CInt(Request.QueryString("Action"))
%>
<HTML>
<HEAD>
<TITLE>申請斑竹 - <%=HOST_NAME%> - <%=HOST_LIST%></TITLE>
<META http-equiv=Content-Type content="text/html; charset=GB2312">
<link rel="shortcut icon" href="Images/Bbs.Ico">
<link href="Style/Style.Css" rel="stylesheet" type="text/css">
<script language="JavaScript">
<!--
function form1_onsubmit() {
if (document.form1.Key.value=="")
{
alert("友情提示!\n\n請完整輸入貼吧名稱!")
document.form1.Key.focus()
return false
}
}
// -->
</script>
<script language="JavaScript">
<!--
function form_onsubmit() {
if (document.form.UotName.value=="")
{
alert("友情提示!\n\n請完整輸入貼吧名稱!")
document.form.UotName.focus()
return false
}
else if (document.form.UotUser.value=="")
{
alert("友情提示!\n\n請完整輸入會員名稱!")
document.form.UotUser.focus()
return false
}
else if (document.form.UotName.value.length <1 )
{
alert("友情提示!\n\n貼吧名稱長度不得小于1字節或大于50字節,當前的貼吧名稱長度為："+form.UotName.value.length+"")
document.form.UotName.focus()
return false
}
else if (document.form.UotName.value.length >50 )
{
alert("友情提示!\n\n貼吧名稱長度不得小于1字節或大于50字節,當前的貼吧名稱長度為："+form.UotName.value.length+"")
document.form.UotName.focus()
return false
}
else if (document.form.UotUser.value.length <3 )
{
alert("友情提示!\n\n會員名稱長度不得小于3字節或大于18字節,當前的會員名稱長度為："+form.UotUser.value.length+"")
document.form.UotUser.focus()
return false
}
else if (document.form.UotUser.value.length >18 )
{
alert("友情提示!\n\n會員名稱長度不得小于3字節或大于18字節,當前的會員名稱長度為："+form.UotUser.value.length+"")
document.form.UotUser.focus()
return false
}
}
// -->
</script>
</HEAD>
<BODY bgColor=#ffffff leftMargin=0 topMargin=0>
<!--#include file="top.asp"-->
<TABLE cellSpacing=0 cellPadding=0 width=100% align=center border=0>
<TBODY>
<TR>
<TD width=1% height=20 bgColor=<%=HOST_TITLE%>></TD><TD width=99% height=20 bgColor=<%=HOST_TITLE%> class=INDEX_VMALL><a href="Index.Asp"><font color=<%=HOST_FONT%>>首頁</font></a> <font color=<%=HOST_FONT%>>></font> <font color=<%=HOST_FONT%>><u>申請斑竹</u></font></TD></TR></TBODY></TABLE>
<TABLE cellSpacing=0 cellPadding=0 width=100%" align=center border=0 bgColor=#ffffff>
<TBODY>
<TR>
<TD>
<TABLE cellSpacing=0 cellPadding=0 width="100%" align=center border=0>
<TBODY>
<% if Action <> 1 then %>
<TR>
<TD width="5%" height="30"></TD>
<TD width="90%" height="30" colspan="2"></TD>
<TD width="5%" height="30"></TD></TR>
<form name="form" onsubmit="return form_onsubmit()" method="post" action="uot.asp?Action=1">
<TR>
<TD width="5%" height="30"></TD>
<TD width="20%" height="30" align="right" class=INDEX_XMALL>申請吧名：</td><TD width="70%" height="30"><input name="UotName" maxLength="50" size="50"> *</TD>
<TD width="5%" height="30"></TD></TR>
<TR>
<TD width="5%" height="30"></TD>
<TD width="20%" height="30" align="right" class=INDEX_XMALL>會員名稱：</td><TD width="70%" height="30"><input name="UotUser" maxLength="18" size="30"> *</TD>
<TD width="5%" height="30"></TD></TR>
<TR>
<TD width="5%" height="30"></TD>
<TD width="20%" height="30"></td><TD width="70%" height="30"><INPUT type=submit name="SUBMIT" value=" 申請吧主 "></TD>
<TD width="5%" height="30"></TD></TR></form>
<TR>
<TD width="5%" height="30"></TD>
<TD width="90%" height="10" colspan="2"></TD>
<TD width="5%" height="30"></TD></TR>
<% else %>
<%
server_v1=Cstr(Request.ServerVariables("HTTP_REFERER"))
server_v2=Cstr(Request.ServerVariables("SERVER_NAME"))
if mid(server_v1,8,len(server_v2))<>server_v2 then
response.write "<br><br><center><table border=1 cellpadding=20 bordercolor=black bgcolor=#EEEEEE width=450>"
response.write "<tr><td style=font:9pt Verdana>"
response.write "<center><font face=Georgia,Tahoma size=2><u>友情提示：服務器禁止非法操作...</u></font></center>"
response.write "</td></tr></table></center>"
response.end
end if
%>
<%
fqys=request.servervariables("query_string")
dim nothis(18)
nothis(0)="net user"
nothis(1)="xp_cmdshell"
nothis(2)="/add"
nothis(3)="exec%20master.dbo.xp_cmdshell"
nothis(4)="net localgroup administrators"
nothis(5)="select"
nothis(6)="count"
nothis(7)="asc"
nothis(8)="char"
nothis(9)="mid"
nothis(10)="'"
nothis(11)=":"
nothis(12)=""""
nothis(13)="insert"
nothis(14)="delete"
nothis(15)="drop"
nothis(16)="truncate"
nothis(17)="from"
nothis(18)="%"
errc=false
for i= 0 to ubound(nothis)
if instr(FQYs,nothis(i))<>0 then
errc=true
end if
next
if errc then
response.write "<br><br><center><table border=1 cellpadding=20 bordercolor=black bgcolor=#EEEEEE width=450>"
response.write "<tr><td style=font:9pt Verdana>"
response.write "<center><font face=Georgia,Tahoma size=2><u>友情提示：服務器禁止非法操作...</u></font></center>"
response.write "</td></tr></table></center>"
response.end
end if
%>
<%
Dim UotName,UotUser
UotName=Request.Form("UotName")
UotName=PostString(UotName)
UotUser=Request.Form("UotUser")
UotUser=PostString(UotUser)
if Trim(UotName)="" or Len(UotName)>50 or Len(UotName)<1 then
Response.Write ("<script>alert('友情提示!\n\n貼吧名稱不得小于1或大于50字節!');history.back();</script>")
Response.end
else
UotName=Trim(UotName)
end if
if Trim(UotUser)="" or Len(UotUser)>18 or Len(UotUser)<3 then
Response.Write ("<script>alert('友情提示!\n\n會員名稱不得小于3或大于18字節!');history.back();</script>")
Response.end
else
UotUser=Trim(UotUser)
end if
Sql="select BoardName from QiQiBoy_Board_Disp where BoardName='"&UotName&"'"
Set Rs=Conn.execute(Sql)
If rs.eof Then
Response.Write ("<script>alert('友情提示!\n\n系統沒有找到該貼吧!');history.back();</script>")
Response.end
end if
If UotUser="" Then
Response.Write ("<script>alert('友情提示!\n\n請完整輸入會員名稱!');history.back();</script>")
Response.end
End If
Sql="select UserName from QiQiBoy_User_Disp where UserName='"&UotUser&"'"
Set Rs=Conn.execute(Sql)
If rs.eof Then
Response.Write ("<script>alert('友情提示!\n\n系統沒有找到該注冊會員!');history.back();</script>")
Response.end
end if
Ip = Request.ServerVariables("HTTP_X_FORWARDED_FOR")
If Ip = "" Then Ip = Request.ServerVariables("REMOTE_ADDR")
Sql="Insert into QiQiBoy_Uot_Disp (UotName,UotUser,UotTime,UotIp) values('"&UotName&"','"&UotUser&"',#"&Now()&"#,'"&Ip&"')"
Conn.execute(Sql)
%>
<%If HOST_SMTP=0 then%>
<%
id=rs(0)
Set msg = Server.CreateObject("JMail.Message")
msg.silent = true
msg.Logging = true
msg.Charset = "GB2312"
msg.ContentType = "text/html"
msg.MailServerUserName = ""&HOST_MAILNAME&""
msg.MailServerPassword = ""&HOST_MAILPASS&""
msg.From = ""&HOST_MAILADDRESS&""
msg.AddRecipient ""&HOST_MAIL&""
msg.Subject = "斑竹申請通知:會員申請斑竹提交通知..."
msg.Body = "申請時間："&Now()&"<br>申請會員：<a href="""&HOST_URL&"/u.asp?/="&(Server.UrlEncode(UotUser))&""" target=_blank>"&UotUser&"</a><br>申請貼吧：<a href="""&HOST_URL&"/t.asp?/="&(Server.UrlEncode(UotName))&""" target=_blank>"&UotName&"</a><br><br><br><br><a href="&HOST_URL&" target=_blank>"&HOST_NAME&"</a><br>OICQ:<a href=""http://wpa.qq.com/msgrd?V=1&Uin="&HOST_OICQ&"&Site="&HOST_NAME&"&Menu=yes"">"&HOST_OICQ&"</A><br>MAIL:<a href=mailto:"&HOST_MAIL&" target=_blank>"&HOST_MAIL&"</a>"
msg.Send (""&HOST_SMTPADDRESS&"")
set msg = nothing
%>
<%End If%>
<TR>
<TD width="5%" height="20"></TD>
<TD colspan="2" width="90%" height="20"></TD>
<TD width="5%" height="20"></TD></TR>
<TR>
<TD colspan="4" background="IMAGES/betle_img_line.gif"></TD></TR>
<TR>
<TD width="5%" height="20"></TD>
<TD class=INDEX_XMALL width="90%" height="50" align=center><img src="Images/loading.gif" border="0"></TD>
<TD width="5%" height="20"></TD></TR>
<TR>
<TD width="5%" height="20"></TD>
<TD colspan="2" width="90%" height="20"></TD>
<TD width="5%" height="20"></TD></TR>
<TR>
<TD colspan="4" background="IMAGES/betle_img_line.gif"></TD></TR>
<% end if %>
<% if Action = 1 then %>
<meta http-equiv="refresh" content="0;URL=index.asp">
<% end if %>
</TBODY></TABLE></TD></TR></TBODY></TABLE>
<!--#include file="end.asp"-->?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -