📄 admin_friendsite.asp

📁 个人网站比较简短
💻 ASP
📖 第 1 页 / 共 5 页
字号:
    Response.Write "      <td width='150' align='right'><strong>是否审核通过：</strong></td>"
    Response.Write "      <td>"
    Response.Write "        <input type='radio' name='Passed' value='yes' checked> 是&nbsp;&nbsp;"
    Response.Write "        <input type='radio' name='Passed' value='no'> 否&nbsp;&nbsp;"
    Response.Write "      </td>"
    Response.Write "    </tr>"
    Response.Write "    <tr class='tdbg'>"
    Response.Write "      <td height='40' colspan='2' align='center'>"
    Response.Write "        <input name='Action' type='hidden' id='Action' value='SaveAdd'>"
    Response.Write "        <input type='submit' value=' 确 定 ' name='submit'>&nbsp;&nbsp;"
    Response.Write "        <input type='reset' value=' 重 填 ' name='reset'>"
    Response.Write "      </td>"
    Response.Write "    </tr>"
    Response.Write "  </table>"
    Response.Write "</form>"
End Sub

Sub Modify()
    Dim ID, rsFriendSite, sqlFriendSite
    ID = PE_CLng(Trim(Request("ID")))
    If ID = 0 Then
        FoundErr = True
        ErrMsg = ErrMsg & "<li>请指定友情链接ID</li>"
        Exit Sub
    End If
    sqlFriendSite = "select * from PE_FriendSite where ID=" & ID
    Set rsFriendSite = Conn.Execute(sqlFriendSite)
    If rsFriendSite.BOF And rsFriendSite.EOF Then
        FoundErr = True
        ErrMsg = ErrMsg & "<li>找不到友情链接！</li>"
        rsFriendSite.Close
        Set rsFriendSite = Nothing
        Exit Sub
    End If

    Call ShowJS_AddModify
    Response.Write "<form method='post' name='myform' onsubmit='return CheckForm()' action='Admin_FriendSite.asp'>"
    Response.Write "  <table border='0' cellpadding='2' cellspacing='1' align='center' width='100%' class='border'>"
    Response.Write "    <tr class='title'>"
    Response.Write "      <td height='22' colspan='2' align='center'><strong>修改友情链接</strong></td>"
    Response.Write "    </tr>"
    Response.Write "    <tr class='tdbg'>"
    Response.Write "      <td width='150' align='right'><strong>链接所属类别：</strong></td>"
    Response.Write "      <td><select name='KindID' id='KindID'>" & GetFsKind_Option(1, rsFriendSite("KindID")) & "</select>"
    Response.Write "      </td>"
    Response.Write "    </tr>"
    Response.Write "    <tr class='tdbg'>"
    Response.Write "      <td width='150' align='right'><strong>链接所属专题：</strong></td>"
    Response.Write "      <td><select name='SpecialID' id='SpecialID'>" & GetFsKind_Option(2, rsFriendSite("SpecialID")) & "</select>"
    Response.Write "      </td>"
    Response.Write "    </tr>"
    Response.Write "    <tr class='tdbg'>"
    Response.Write "      <td width='150' align='right'><strong>网站名称：</strong></td>"
    Response.Write "      <td>"
    Response.Write "        <input type='text' name='SiteName' id='SiteName' size='60' maxlength='50' value='" & rsFriendSite("SiteName") & "'> <font color='#FF0000'> *</font>"
    Response.Write "      </td>"
    Response.Write "    </tr>"
    Response.Write "    <tr class='tdbg'>"
    Response.Write "      <td width='150' align='right'><strong>网站地址：</strong></td>"
    Response.Write "      <td>"
    Response.Write "        <input type='text' name='SiteUrl' id='SiteUrl' size='80' maxlength='100' value='" & rsFriendSite("SiteUrl") & "'> <font color='#FF0000'>*</font>"
    Response.Write "      </td>"
    Response.Write "    </tr>"
    Response.Write "    <tr class='tdbg'>"
    Response.Write "      <td width='150' align='right'><strong>网站Logo地址：</strong></td>"
    Response.Write "      <td>"
    Response.Write "        <input type='text' name='LogoUrl' id='LogoUrl' size='80' maxlength='100' value='" & rsFriendSite("LogoUrl") & "'>"
    Response.Write "      </td>"
    Response.Write "    </tr>"
    Response.Write "    <tr class='tdbg'>"
    Response.Write "      <td width='150' align='right'><strong>站长姓名：</strong></td>"
    Response.Write "      <td>"
    Response.Write "        <input type='text' name='SiteAdmin' id='SiteAdmin' size='40'  maxlength='25' value='" & rsFriendSite("SiteAdmin") & "'>"
    Response.Write "      </td>"
    Response.Write "    </tr>"
    Response.Write "    <tr class='tdbg'>"
    Response.Write "      <td width='150' align='right'><strong>电子邮件：</strong></td>"
    Response.Write "      <td>"
    Response.Write "        <input type='text' name='SiteEmail' id='SiteEmail' size='40'  maxlength='50' value='" & rsFriendSite("SiteEmail") & "'>"
    Response.Write "      </td>"
    Response.Write "    </tr>"
    Response.Write "    <tr class='tdbg'>"
    Response.Write "      <td width='150' align='right'><strong>网站密码：</strong></td>"
    Response.Write "      <td>"
    Response.Write "        <input type='password' name='SitePassword' id='SitePassword' size='30' maxlength='20'> <font color='#FF0000'>若不修改，请保持为空</font>"
    Response.Write "      </td>"
    Response.Write "    </tr>"
    Response.Write "    <tr class='tdbg'>"
    Response.Write "      <td width='150' align='right'><strong>确认密码：</strong></td>"
    Response.Write "      <td><input type='password' name='SitePwdConfirm' id='SitePwdConfirm' size='30' maxlength='20'>"
    Response.Write "      </td>"
    Response.Write "    </tr>"
    Response.Write "    <tr class='tdbg'>"
    Response.Write "      <td width='150' align='right'><strong>网站简介：</strong></td>"
    Response.Write "      <td><textarea name='SiteIntro' id='SiteIntro' cols='67' rows='4'>" & PE_ConvertBR(rsFriendSite("SiteIntro")) & "</textarea></td>"
    Response.Write "    </tr>"
    Response.Write "    <tr class='tdbg'>"
    Response.Write "      <td width='150' align='right'><strong>网站评分等级：</strong></td>"
    Response.Write "      <td>"
    Response.Write "        <select name='Stars' id='Stars'>" & GetStars(rsFriendSite("Stars")) & "</select>"
    Response.Write "      </td>"
    Response.Write "    </tr>"
    Response.Write "    <tr class='tdbg'>"
    Response.Write "      <td width='150' align='right'><strong>点 击 数：</strong></td>"
    Response.Write "      <td>"
    Response.Write "        <input type='text' name='Hits' id='Hits' size='10' maxlength='10' value='" & rsFriendSite("Hits") & "'>"
    Response.Write "      </td>"
    Response.Write "    </tr>"
    Response.Write "    <tr class='tdbg'>"
    Response.Write "      <td width='150' align='right'><strong>录入时间：</strong></td>"
    Response.Write "      <td>"
    Response.Write "        <input type='text' name='UpdateTime' id='UpdateTime' value='" & rsFriendSite("UpdateTime") & "' maxlength='50'> 时间格式为“年-月-日 时:分:秒”，如：<font color='#0000FF'>2003-5-12 12:32:47</font>"
    Response.Write "      </td>"
    Response.Write "    </tr>"
    Response.Write "    <tr class='tdbg'>"
    Response.Write "      <td width='150' align='right'><strong>是否推荐站点：</strong></td>"
    Response.Write "      <td>"
    Response.Write "        <input type='radio' name='Elite' value='yes' " & IsRadioChecked(rsFriendSite("Elite"), True) & "> 是&nbsp;&nbsp;"
    Response.Write "        <input type='radio' name='Elite' value='no' " & IsRadioChecked(rsFriendSite("Elite"), False) & "> 否&nbsp;&nbsp;"
    Response.Write "      </td>"
    Response.Write "    </tr>"
    Response.Write "    <tr class='tdbg'>"
    Response.Write "      <td width='150' align='right'><strong>是否审核通过：</strong></td>"
    Response.Write "      <td>"
    Response.Write "        <input type='radio' name='Passed' value='yes' " & IsRadioChecked(rsFriendSite("Passed"), True) & "> 是&nbsp;&nbsp;"
    Response.Write "        <input type='radio' name='Passed' value='no' " & IsRadioChecked(rsFriendSite("Passed"), False) & "> 否&nbsp;&nbsp;"
    Response.Write "      </td>"
    Response.Write "    </tr>"
    Response.Write "    <tr class='tdbg'>"
    Response.Write "      <td height='40' colspan='2' align='center'>"
    Response.Write "        <input name='ID' type='hidden' id='ID' value='" & rsFriendSite("ID") & "'>"
    Response.Write "        <input name='Action' type='hidden' id='Action' value='SaveModify'>"
    Response.Write "        <input type='submit' value=' 修 改 ' name='submit'>&nbsp;&nbsp;"
    Response.Write "        <input name='Cancel' type='button' id='Cancel' value=' 取 消 ' onClick=""window.location.href='Admin_FriendSite.asp'"" style='cursor:hand;'>"
    Response.Write "      </td>"
    Response.Write "    </tr>"
    Response.Write "  </table>"
    Response.Write "</form>"
    rsFriendSite.Close
    Set rsFriendSite = Nothing
End Sub

Sub SaveFriendSite()
    Dim rsFriendSite, sqlFriendSite
    Dim ID, KindID, SpecialID, LinkType, SiteName, SiteUrl, SiteIntro, LogoUrl
    Dim SiteAdmin, SiteEmail, SitePassword, SitePwdConfirm, Stars, Hits, UpdateTime, Elite, Passed

    ID = PE_CLng(Trim(Request.Form("ID")))
    KindID = PE_CLng(Trim(Request.Form("KindID")))
    SpecialID = PE_CLng(Trim(Request.Form("SpecialID")))
    SiteName = Trim(Request.Form("SiteName"))
    SiteUrl = Trim(Request.Form("SiteUrl"))
    SiteIntro = Trim(Request.Form("SiteIntro"))
    LogoUrl = Trim(Request.Form("LogoUrl"))
    SiteAdmin = Trim(Request.Form("SiteAdmin"))
    SiteEmail = Trim(Request.Form("SiteEmail"))
    SitePassword = Trim(Request.Form("SitePassword"))
    SitePwdConfirm = Trim(Request.Form("SitePwdConfirm"))
    Stars = PE_CLng(Trim(Request.Form("Stars")))
    Hits = PE_CLng(Trim(Request.Form("Hits")))
    UpdateTime = PE_CDate(Trim(Request.Form("UpdateTime")))
    Elite = Trim(Request.Form("Elite"))
    Passed = Trim(Request.Form("Passed"))

    If SiteName = "" Then
        FoundErr = True
        ErrMsg = ErrMsg & "<li>网站名称不能为空！</li>"
    End If
    If SiteUrl = "" Then
        FoundErr = True
        ErrMsg = ErrMsg & "<li>网站地址不能为空！</li>"
    End If
    If SiteEmail <> "" And IsValidEmail(SiteEmail) = False Then
        FoundErr = True
        ErrMsg = ErrMsg & "<li>Email地址错误!</li>"
    End If

    If Action = "SaveAdd" Then
        If SitePassword = "" Then
            FoundErr = True
            ErrMsg = ErrMsg & "<li>网站密码不能为空！</li>"
        End If
        If SitePwdConfirm = "" Then
            FoundErr = True
            ErrMsg = ErrMsg & "<li>确认密码不能为空！</li>"
        End If
        If SitePwdConfirm <> SitePassword Then
            FoundErr = True
            ErrMsg = ErrMsg & "<li>网站密码与确认密码不一致！</li>"
        End If
    End If
    If FoundErr = True Then
        Exit Sub
    End If

    If LogoUrl = "" Or LogoUrl = "http://" Then
        LinkType = 2
    Else
        LinkType = 1
    End If
    SiteName = ReplaceBadChar(SiteName)
    SiteUrl = ReplaceUrlBadChar(SiteUrl)
    LogoUrl = ReplaceUrlBadChar(LogoUrl)
    SiteAdmin = PE_HTMLEncode(SiteAdmin)
    SiteEmail = PE_HTMLEncode(SiteEmail)
    SiteIntro = PE_HTMLEncode(SiteIntro)
    Elite = CBool(Elite = "yes")
    Passed = CBool(Passed = "yes")

    Set rsFriendSite = Server.CreateObject("adodb.recordset")
    If Action = "SaveAdd" Then
        sqlFriendSite = "select top 1 * from PE_FriendSite where SiteName='" & SiteName & "' and SiteUrl='" & SiteUrl & "'"
        rsFriendSite.Open sqlFriendSite, Conn, 1, 3
        If Not (rsFriendSite.BOF And rsFriendSite.EOF) Then
            FoundErr = True
            ErrMsg = ErrMsg & "<li>你要添加的网站已经存在！</li>"
            rsFriendSite.Close
            Set rsFriendSite = Nothing
            Exit Sub
        End If
        rsFriendSite.addnew
    ElseIf Action = "SaveModify" Then
        If ID = 0 Then
            FoundErr = True
            ErrMsg = ErrMsg & "<li>不能确定友情链接ID</li>"
            Exit Sub
        End If
        sqlFriendSite = "select * from PE_FriendSite where ID=" & ID
        rsFriendSite.Open sqlFriendSite, Conn, 1, 3
        If rsFriendSite.BOF And rsFriendSite.EOF Then
            FoundErr = True
            ErrMsg = ErrMsg & "<li>找不到指定的友情链接！</li>"
            rsFriendSite.Close
            Set rsFriendSite = Nothing
            Exit Sub
        End If
    End If
    rsFriendSite("KindID") = KindID
    rsFriendSite("SpecialID") = SpecialID
    rsFriendSite("LinkType") = LinkType
    rsFriendSite("SiteName") = SiteName
    rsFriendSite("SiteUrl") = SiteUrl
    rsFriendSite("SiteIntro") = SiteIntro
    rsFriendSite("LogoUrl") = LogoUrl
    rsFriendSite("SiteAdmin") = SiteAdmin
    rsFriendSite("SiteEmail") = SiteEmail
    If Action = "SaveAdd" Or (Action = "SaveModify" And SitePassword <> "") Then
        rsFriendSite("SitePassword") = MD5(SitePassword, 16)
    End If
    If Action = "SaveAdd" Then
        rsFriendSite("OrderID") = GetNewID("PE_FriendSite", "OrderID")
    End If
    rsFriendSite("Stars") = Stars
    rsFriendSite("Hits") = Hits
💿 文件大小 7095 K
👤 上传用户 foreverlovely
📂 所属分类家庭/个人应用
🏷️ 相关标签

#网站 #比较
⌨️ 快捷键说明

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