📄 addqy.asp

📁 青岛分类信息网整合企业名录.供大家分享
💻 ASP
📖 第 1 页 / 共 2 页
字号:
12 下一页
<!--#include file="conn.asp"-->
<%
if session("ad_admin")="" then
response.redirect "login.asp"
end if

dname=HtmlEncode(trim(request.form("dname")))
dusername=HtmlEncode(trim(request.form("username")))
dpassword=HtmlEncode(trim(request.form("password")))
dyewu=HtmlEncode(trim(request.form("dyewu")))
dlei=split(HtmlEncode(trim(request.form("dlei"))),"@")
dfaren=HtmlEncode(trim(request.form("dfaren")))
dpic=HtmlEncode(trim(request.form("dpic")))
dcity=HtmlEncode(trim(request.form("dcity")))
dhttp=HtmlEncode(trim(request.form("dhttp")))
dmail=HtmlEncode(trim(request.form("dmail")))
daddress=HtmlEncode(trim(request.form("daddress")))
dyoubian=HtmlEncode(trim(request.form("dyoubian")))
dtel=HtmlEncode(trim(request.form("dtel")))
dfax=HtmlEncode(trim(request.form("dfax")))
djieshao=HtmlEncode(request.form("djieshao"))
dperson=HtmlEncode(trim(request.form("dperson")))
if dname<>"" then
sql="select * from qydata where username='"&dusername&"'"
set rs=server.createobject("adodb.recordset")
rs.open sql,connstr,1,3
if rs.recordcount<>0 then
response.write "<script>alert('此用户名已经存在，请重新选择！');history.back();</script>"
response.end
else
rs.addnew
rs("name")=dname
rs("username")=dusername
rs("password")=dpassword
rs("yewu")=dyewu
rs("leiid")=dlei(0)
rs("lei")=dlei(1)
rs("faren")=dfaren
rs("pic")=dpic
rs("city")=dcity
rs("http")=dhttp
rs("mail")=dmail
rs("address")=daddress
rs("youbian")=dyoubian
rs("tel")=dtel
rs("fax")=dfax
rs("jieshao")=djieshao
rs("person")=dperson
if session("ad_admin")<>"" then
rs("mark")="1"
rs("tuijian")=HtmlEncode(trim(request.form("dtuijian")))
end if
rs.update
session("username")=dname
response.redirect "okqy.asp"
end if
end if
%>

<html>
<head>
<style type="text/css">
<!-- 
td           { font-size: 12px; line-height: 17px }
body         { font-size: 12px; line-height: 17px }
p            { margin-top: 1; margin-bottom: 1 }
a:link       { text-decoration: none; color: black }
a:visited    { text-decoration: none; color: black }
a:active     { text-decoration: none }
a:hover      { text-decoration: underline; color: red }
-->
</style>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>添加信息</title>
<SCRIPT LANGUAGE="JavaScript">
<!--//
function checkadd()
{   
    if (document.postart.dname.value.length<1)
	{
        alert("单位名称不能为空！");
        document.postart.dname.focus();
        return false;
    }
    if (document.postart.username.value.length<1)
	{
        alert("用户名不能为空！");
        document.postart.username.focus();
        return false;
    }
    if (document.postart.password.value.length<1)
	{
        alert("登录密码不能为空！");
        document.postart.password.focus();
        return false;
    }
    if (document.postart.dcity.value=="选择区域")
	{
        alert("请选择所在区域！");
        document.postart.dcity.focus();
        return false;
    }
    if (document.postart.dlei.value=="选择行业类别")
	{
        alert("请选择行业类别！");
        document.postart.dlei.focus();
        return false;
    }
}
//-->
</SCRIPT>
<script language="Javascript">
function openScript(url, width, height){
	var Win = window.open(url,"openScript",'width=' + width + ',height=' + height + ',resizable=1,scrollbars=no,menubar=no,frameborder=0,status=yes' );
12 下一页
⌨️ 快捷键说明

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