📄 new.asp

📁 结合了某度和AH的个人主页功能比较完整
💻 ASP
📖 第 1 页 / 共 2 页
字号:
12 下一页
<!--#include file="conn.asp"-->
<!--#include file="check.asp"-->
<%
on error resume next

set rs = server.createobject("adodb.recordset")
sql = "select * from config"
rs.open sql,conn,1,1

if date <> idate then
rs("today") = 0
end if
rs("date") = date
rs.update
ititle = rs("title")
ihomepage = rs("homepage")
iurl = rs("url")
imax = rs("max")
ipagesize = rs("pagesize")
itoday = rs("today")
idate = rs("date")
ibottom = rs("bottom")
iqqshow = rs("qqshow")
icolor1 = rs("color1")
icolor2 = rs("color2")
icolor3 = rs("color3")

rs.close

iaction = request.form("action")

if iaction = "new" then
iname = inohtml(request.form("name"))
iemail = inohtml(request.form("email"))
iweb = inohtml(request.form("homepage"))
ioicq = inohtml(request.form("oicq"))
iicon = inohtml(request.form("icon"))
iface = inohtml(request.form("face"))
icontent = inohtml(request.form("content"))
ititle = inohtml(request.form("title"))

if iname = "" or icontent = "" or ititle = "" then
ierror = ierror & "有未填栏"
end if

if iemail <> "" and isvalidemail(iemail) = false then
ierror = ierror & "邮箱格式错误"
end if

if ioicq <> "" and ( isinteger(ioicq) = false or len(ioicq) < 4 or len(ioicq) > 11 ) then
ierror = ierror & "QQ格式错误"
end if

if iweb = "http://" or iweb = "" then
iweb = "http://www.landao.com"
end if

if iface = "" or iface > 6 then
iface = 1
end if

if iicon = "" or iicon > 26 then
iicon = 1
end if

if len(icontent) > imax then
ierror = ierror & "内容字数过多"
end if

if len(iname) > 100 or len(iemail) > 100 or len(iweb) > 100 or len(ititle) > 100 or len(iicon) > 100 or len(iface) > 100 then
ierror = ierror & "信息过长"
end if

if ierror = "" then
sql = "select * from content"
rs.open sql,conn,3,2
rs.addnew
rs("author") = iname
rs("email") = iemail
rs("oicq") = ioicq
rs("homepage") = iweb
rs("content") = icontent
rs("icon") = iicon
rs("face") = iface
rs("time") = now
rs("title") = ititle
rs.update
rs.close

sql = "select * from config"
rs.open sql,conn,3,2
if date <> idate then
rs("today") = 1
else
rs("today") = rs("today") + 1
end if
rs("date") = date
rs.update
rs.close

set rs = nothing
response.redirect "index.asp"
response.end

end if

end if
%>
<html>

<head>
<!--- The site is designed by Wind Song Studio --->
<meta http-equiv="Content-Language" content="zh-cn">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="author" content="www.moudu.com">
<meta name="description" content="某度工作室,MouDu Studio.">
<meta name="keywords" content="某度,工作室,设计,Studio,MouDu,Design">
<link href="style.css" rel="stylesheet" type="text/css">
<title><%=ititle%></title>
</head>

<body bgcolor="#EEEEEE" topmargin="0" leftmargin="0">
<div align="center">
  <center>
  <table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="800">
    <tr>
      <td width="100" background="images/main/left.gif">　</td>
      <td width="600" bgcolor="#cea772">
      <img border="0" src="images/main/top.jpg"></td>
      <td width="100" background="images/main/right.gif">　</td>
    </tr>
  </table>
  </center>
</div>

<div align="center">
  <center>
  <table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="800" height="100%" bgcolor="#e4c59a">
    <tr>
      <td width="100" background="images/main/left.gif">　</td>
      <td width="600" bgcolor="#e4c59a" valign="top">
      <div align="center">
        <center>
      <table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="580" height="54">
        <tr>
          <td width="100%" align="center" colspan="3" height="32">
          <table border="0" width="100%" cellspacing="0" cellpadding="0">
            <tr>
              <td width="100%">
                <table border="0" width="100%" cellspacing="0" cellpadding="0" height="36">
                  <tr>
                    <td width="12%" align="center" height="36"><a href="../index.asp"><img border="0" src="../img/index.gif" align="absmiddle" width="50" height="20"></a></td>
                    <td width="12%" align="center" height="36"><a href="../diary/index.asp"><img border="0" src="../img/rj.gif" align="absmiddle" width="50" height="20"></a></td>
                    <td width="12%" align="center" height="36"><a href="./pic/index.asp"><img border="0" src="../img/xc.gif" align="absmiddle" width="50" height="20"></a></td>
                    <td width="12%" align="center" height="36"><a href="../music/index.asp"><img border="0" src="../img/y.gif" align="absmiddle" width="50" height="20"></a></td>
                    <td width="13%" align="center" height="36"><a href="../new/index.asp"><img src="../img/wen.jpg" width="50" height="20" border="0" align="absmiddle"></a></td>
                    <td width="13%" align="center" height="36"><a href="../down/index.asp"><img src="../img/xia.jpg" width="50" height="20" border="0" align="absmiddle"></a></td>
                    <td width="13%" align="center" height="36"><a href="index.asp"><img border="0" src="../img/gb.gif" align="absmiddle" width="50" height="20"></a></td>
                    <td width="13%" align="center" height="36"><a href="../link/index.asp"><img border="0" src="../img/link.gif" align="absmiddle" width="50" height="20"></a></td>
                  </tr>
                </table>
              </td>
            </tr>
          </table>
          </td>
        </tr>
        <tr>
          <td width="100%" align="center" height="22">
          <img border="0" src="images/main/now.gif"></td>
          <td width="30%" height="22"><a href="new.asp"><img border="0" src="images/main/new.jpg"></a>                    </td>
12 下一页
⌨️ 快捷键说明

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