<%
sub SaveAdd()
    dim LinkType,LinkSiteName,LinkSiteUrl,LinkLogoUrl,LinkSiteAdmin,LinkEmail,LinkSitePassword,LinkSitePwdConfirm,LinkSiteIntro,LinkIsGood,LinkIsOK
    LinkType=trim(request("LinkType"))
    LinkSiteName=trim(request("SiteName"))
    LinkSiteUrl=trim(request("SiteUrl"))
    LinkLogoUrl=trim(request("LogoUrl"))
    LinkSiteAdmin=trim(request("SiteAdmin"))
    LinkEmail=trim(request("Email"))
    LInkSiteIntro=trim(request("SiteIntro"))
    LinkIsGood=trim(request("IsGood"))
    LinkIsOK=trim(request("IsOK"))
    if LinkType="" then
        FoundErr=True
        ErrMsg=ErrMsg & "<br><li>链接类型不能为空！</li>"
    else
        LinkType=Cint(LinkType)
        if LinkType=1 and (LinkLogoUrl="" or LinkLogoUrl="http://") then
            FoundErr=True
            ErrMsg=ErrMsg & "<br><li>网站LOGO不能为空！</li>"
        end if
    end if
    if LinkSiteName="" then
        FoundErr=True
        ErrMsg=ErrMsg & "<br><li>网站名称不能为空！</li>"
    end if
    if LinkSiteUrl="" then
        FoundErr=True
        ErrMsg=ErrMsg & "<br><li>网站地址不能为空！</li>"
    end if
    if LinkSiteAdmin="" then
        FoundErr=True
        ErrMsg=ErrMsg & "<br><li>站长姓名不能为空！</li>"
    end if
    if LinkEmail="" then
        FoundErr=True
        ErrMsg=ErrMsg & "<br><li>Email不能为空！</li>"
    else
        if IsValidEmail(LinkEmail)=false then
            errmsg=errmsg & "<br><li>Email地址错误!</li>"
               founderr=true
        end if
    end if    
    
    if LinkSiteIntro="" then
        FoundErr=True
        ErrMsg=ErrMsg & "<br><li>网站简介不能为空！</li>"
    end if
    if LinkSiteIntro="" then
        FoundErr=True
        ErrMsg=ErrMsg & "<br><li>网站简介不能为空！</li>"
    end if
    if LinkIsGood="True" then
        LinkIsGood=True
    else
        LinkIsGood=False
    end if
    if LinkIsOK="True" then
        LinkIsOK=True
    else
        LinkIsOK=False
    end if
    if FoundErr<>True then
        dim sqlLink,rsLink
        sqlLink="select * from FriendLinks where SiteName='" & LinkSiteName & "' and SiteUrl='" & LinkSiteUrl & "'"
        set rs=Server.CreateObject("Adodb.RecordSet")
        rs.open sqlLink,conn,1,1
        if not (rs.bof and rs.eof) then
            FoundErr=True
            ErrMsg=ErrMsg & "<br><li>你要添加的网站已经存在！</li>"            
        else
            set rsLink=Server.CreateObject("Adodb.RecordSet")
               sql="select * from FriendLinks where (id is null)"
            rsLink.open sql,conn,1,3           
            rsLink.Addnew
            rsLink("LinkType")=LinkType
            rsLink("SiteName")=dvHtmlEncode(LinkSiteName)
            rsLink("SiteUrl")=dvHtmlEncode(LinkSiteUrl)
            rsLink("LogoUrl")=dvHtmlEncode(LinkLogoUrl)
            rsLink("SiteAdmin")=dvHtmlEncode(LinkSiteAdmin)
            rsLink("Email")=dvHtmlEncode(LinkEmail)            
            rsLink("SiteIntro")=dvHtmlEncode(LinkSiteIntro)
            rsLink("IsGood")=LinkIsGood
            rsLink("IsOK")=LinkIsOK
            rsLink.update
            rsLink.close
            set rsLink=nothing
            call CloseConn()
            Response.Redirect "Admin_FriendLinks.asp"
        end if
        rs.close
        set rs=nothing
    end if
end sub

sub SaveModify()
    if ID="" then
        FoundErr=True
        ErrMsg=ErrMsg & "<br><li>请指定友情站点ID</li>"
        exit sub
    else
        ID=Clng(ID)
    end if
    dim LinkType,LinkSiteName,LinkSiteUrl,LinkLogoUrl,LinkSiteAdmin,LinkEmail,LinkSitePassword,LinkSitePwdConfirm,LinkSiteIntro,LinkIsGood,LinkIsOK
    LinkType=trim(request("LinkType"))
    LinkSiteName=trim(request("SiteName"))
    LinkSiteUrl=trim(request("SiteUrl"))
    LinkLogoUrl=trim(request("LogoUrl"))
    LinkSiteAdmin=trim(request("SiteAdmin"))
    LinkEmail=trim(request("Email"))
    LInkSiteIntro=trim(request("SiteIntro"))
    LinkIsGood=trim(request("IsGood"))
    LinkIsOK=trim(request("IsOK"))
    if LinkType="" then
        FoundErr=True
        ErrMsg=ErrMsg & "<br><li>链接类型不能为空！</li>"
    else
        LinkType=Cint(LinkType)
        if LinkType=1 and (LinkLogoUrl="" or LinkLogoUrl="http://") then
            FoundErr=True
            ErrMsg=ErrMsg & "<br><li>网站LOGO不能为空！</li>"
        end if
    end if
    if LinkSiteName="" then
        FoundErr=True
        ErrMsg=ErrMsg & "<br><li>网站名称不能为空！</li>"
    end if
    if LinkSiteUrl="" then
        FoundErr=True
        ErrMsg=ErrMsg & "<br><li>网站地址不能为空！</li>"
    end if
    if LinkSiteAdmin="" then
        FoundErr=True
        ErrMsg=ErrMsg & "<br><li>站长姓名不能为空！</li>"
    end if
    if LinkEmail="" then
        FoundErr=True
        ErrMsg=ErrMsg & "<br><li>Email不能为空！</li>"
    else
        if IsValidEmail(LinkEmail)=false then
            errmsg=errmsg & "<br><li>Email地址错误!</li>"
               founderr=true
        end if
    end if
    if LinkSitePwdConfirm<>LinkSitePassword then
        FoundErr=True
        ErrMsg=ErrMsg & "<br><li>网站密码与确认密码不一致！</li>"
    end if
    if LinkSiteIntro="" then
        FoundErr=True
        ErrMsg=ErrMsg & "<br><li>网站简介不能为空！</li>"
    end if
    if LinkSiteIntro="" then
        FoundErr=True
        ErrMsg=ErrMsg & "<br><li>网站简介不能为空！</li>"
    end if
    if LinkIsGood="True" then
        LinkIsGood=True
    else
        LinkIsGood=False
    end if
    if LinkIsOK="True" then
        LinkIsOK=True
    else
        LinkIsOK=False
    end if
    if FoundErr=True then
        exit sub
    end if
    dim sqlLink,rsLink
    sqlLink="select * from FriendLinks where ID=" & ID
    set rsLink=Server.CreateObject("Adodb.RecordSet")
    rsLink.open sqlLink,conn,1,3
    if rsLink.bof and rsLink.eof then
        FoundErr=True
        ErrMsg=ErrMsg & "<br><li>找不到站点！</li>"
    else
        rsLink("LinkType")=LinkType
        rsLink("SiteName")=dvHtmlEncode(LinkSiteName)
        rsLink("SiteUrl")=dvHtmlEncode(LinkSiteUrl)
        rsLink("LogoUrl")=dvHtmlEncode(LinkLogoUrl)
        rsLink("SiteAdmin")=dvHtmlEncode(LinkSiteAdmin)
        rsLink("Email")=dvHtmlEncode(LinkEmail)        
        rsLink("SiteIntro")=dvHtmlEncode(LinkSiteIntro)
        rsLink("IsGood")=LinkIsGood
        rsLink("IsOK")=LinkIsOK
        rsLink.update
        rsLink.close
        set rsLink=nothing
        call CloseConn()
        Response.Redirect "Admin_FriendLinks.asp"
    end if
    rsLink.close
    set rsLink=nothing
end sub
%>

为什么写不进数据到数据库? 是不是不用能VB过程?