网页制作学习园地论坛--网站建设交流最新20篇论坛主题-全文http://bbs.g168.net/zh-cn网页制作学习园地论坛http://www.g168.netRss Generator By Dvbbs.Netweb@g168.netimages/LOGO.GIF网页制作学习园地论坛厦门奔驰宝马定位器【服务电话：15859457662】http://bbs.g168.net/dispbbs.asp?BoardID=4&ID=46025&Page=1qq4782449742010-9-9 9:27:00网站速度慢怎么办.CDN技术来解决http://bbs.g168.net/dispbbs.asp?BoardID=4&ID=45650&Page=1zhangjingjing2010-8-9 20:09:36[原创]vbasp用户注册页http://bbs.g168.net/dispbbs.asp?BoardID=4&ID=45021&Page=1黑房子2010-5-19 14:29:35下面是用户注册页的内容：

 

 

<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<% Option Explicit %>
<!--前台用户注册-->
<!--#include file="config/data.asp"-->
<!--#include file="config/function.inc.asp"-->
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" c />
<title>无标题文档</title>
</head>

<body>
<%
on error resume next
dim sql,rst
if request.QueryString("act")="reg" then
   if request.Form("f_user")="" or request.Form("f_code")="" then
      msgboxU "用户名和密码不能为空，请输入用户名和密码！"
   else
     set rst=server.CreateObject("adodb.recordset")
  sql="select count(*) as recnum from 08G47_user where u_user='"&request.Form("f_user")&"'"
  rst.open sql,conn,1,1
  if rst("recnum")>0 then
    msgboxU "此用户已存在，请重新输入！"
   else
     sql="insert into 08G47_user (u_user,u_code,u_name,u_sex,u_qq) values('"&request.Form("f_user") & "','" &request.Form("f_code") &"','" & request.Form("f_name") & "','" & request.Form("f_sex") & "','" &request.Form("f_qq") & "')"
     conn.execute sql
     set myErrors=conn.errors
     if myErrors.count=0 then
        msgboxU "恭喜您，注册成功！"
   else
     msgboxU "对不起，注册失败！原因："&myErrors.item(0).description
   end if
  end if
  rst.close
    set rst=nothing
 end if
end if
%>
  <table width="600" border="0" align="center">
    <tr>
      <td width="100px" bgcolor="#CCCCCC">&nbsp;</td>
      <td width="400px" bgcolor="#CCCCCC">&nbsp;</td>
      <td width="100px" bgcolor="#CCCCCC">&nbsp;</td>
    </tr>
    <tr>
      <td bgcolor="#FFFFCC">&nbsp;</td>
      <td width="400px"><form id="form1" name="form1" method="post" action="reguser.asp?act=reg">
      <table width="100%" border="0">
        <tr>
          <td width="100%" colspan="2" bgcolor="#CCFFCC">08G47班级网   　用户注册页</td>
        </tr>
        <tr>
          <td width="80px" align="center" valign="middle" bgcolor="#CCFFCC">用户名：</td>
          <td width="320px" bgcolor="#CCFFCC">
            <input type="text" name="f_user" id="f_user" />
          *</td>
        </tr>
        <tr>
          <td align="center" valign="middle" bgcolor="#CCFFCC">密码：</td>
          <td bgcolor="#CCFFCC">
            <input type="password" name="f_code" id="f_code" />
          *</td>
        </tr>
        <tr>
          <td align="center" valign="middle" bgcolor="#CCFFCC">姓名：</td>
          <td bgcolor="#CCFFCC">
            <input type="text" name="f_name" id="f_name" />
          *</td>
        </tr>
        <tr>
          <td align="center" valign="middle" bgcolor="#CCFFCC">性别：</td>
          <td bgcolor="#CCFFCC">
            <input type="radio" name="f_sex" id="u_sex" value="男"  checked="checked"/>
            男
            <input type="radio" name="f_sex" id="u_sex" value="女" />
            女</td>
        </tr>
        <tr>
          <td align="center" valign="middle" bgcolor="#CCFFCC">QQ：</td>
          <td bgcolor="#CCFFCC">
            <input type="text" name="f_qq" id="f_qq" />
         </td>
        </tr>
        <tr>
          <td bgcolor="#CCFFCC">&nbsp;</td>
          <td bgcolor="#CCFFCC">&nbsp;</td>
        </tr>
        <tr>
          <td bgcolor="#CCFFCC">&nbsp;</td>
          <td bgcolor="#CCFFCC">
            <input type="submit" name="button" id="button" value="提交" />
         
              <input type="reset" name="button2" id="button2" value="重置" />
          </td>
        </tr>
        <tr>
          <td bgcolor="#CCFFCC">&nbsp;</td>
          <td bgcolor="#CCFFCC">&nbsp;</td>
        </tr>
      </table>
       
      </form></td>
      <td bgcolor="#FFFFCC">&nbsp;</td>
    </tr>
    <tr>
      <td bgcolor="#CCCCCC">&nbsp;</td>
      <td align="center" bgcolor="#CCCCCC">版权所有：08G47 黑房子</td>
      <td bgcolor="#CCCCCC">&nbsp;</td>
    </tr>
  </table>
<!-- End ImageReady Slices -->
<%
conn.close
set conn=nothing
%>
</body>
</html>

 

 

下面是data.asp中的内容：

<%
Dim db
Set db=Server.CreateObject("ADODB.Connection")
db.Open "Dbp=E:\网页作品\data\08G47.mdb;Driver={Microsoft Access Driver (*.mdb)}"
%>

 

 

下面是function.inc.asp的内容：

<%
'在客户端弹出提示消息
sub msgboxU(str)
  response.Write("<script language=vbscript>msgbox "&chr(34)&str&chr(34)&"</script>")
  end sub
%>


但是当我在IIS中浏览reguser.asp时出现网站无法显示该页。

 

 我那里弄错了啊，谁能帮帮我啊 。不胜感谢啊 。

]]>新人报道http://bbs.g168.net/dispbbs.asp?BoardID=4&ID=44803&Page=1hldwbubh2010-4-3 12:06:14新人报道，大家好
[此贴子已经被作者于2010-4-3 12:09:38编辑过]
]]>“企业管理”本科双学历双学位自考助学班简章http://bbs.g168.net/dispbbs.asp?BoardID=4&ID=44731&Page=1sdqypx2010-3-10 9:00:08普通高校在校生获取“企业管理”本科双学历双学位自考助学班
招生通知
近几年，随着高校扩招，毕业生的就业压力越来越大，毕业生能找到一份理想的工作十分困难，另一方面社会对复合型人才的需求急剧增加。针对这种情况，山东省教育厅与山东省自考委联合发文，对我省高校在校生参加自学考试制定了一系列优惠政策，特别是2005年下发的高校在校生参加自学考试实行过程性考核的办法在部分高校试点，得到了广大高校在校生的一致肯定。目前，省内高校大学生为了拓宽专业知识面、提高学历层次、获取双学历学位、增加就业渠道、提高就业竞争力而参加双学历学位学习的人数越来越多，截至目前全省已有近5万在校生参加。
应广大在校生的要求，结合学校专业设置特点，我考试中心决定，继续为在校生举办“企业管理”本科专业双学历学位自考助学班。
一、课程设置：“企业管理”本科专业课程设置分为“工商管理高级资格证书课程”和“统考课程”两部分，其中“工商管理高级资格证书课程”由我中心单独组织教学、辅导、命题、考试、阅卷、上报成绩；“统考课程”中的三门公共课本科在校生十分方便通过，其余五门课程我中心统一组织辅导，参加山东省教育考试院组织的全省统考。（详见反面附表）
二、学制：两年。
三、收费标准：1000元/生/年(本科生),1200元/生/年(专科生)，包括教材费、资料费、辅导费、表证费等费用。
四、毕业证书及学位证书：“企业管理”专业的主考院校是山东经济学院和山东轻工业学院。考生按考试计划全部通过其课程的考试，即可获得国家承认的山东经济学院和山东轻工业学院的高教自考毕业证书。各科成绩平均65分以上、毕业答辩成绩良好（75分）以上且没有作弊现象，可以参加由山东省教育厅统一组织的学士学位外语考试，考试合格后，可获得学士学位证书。
五、报名：报名仅限山东省内各市在校本、专科学生以及毕业生。网上或者电话报名，于山东大学学习，上课时间全部安排在周日以及暑期，随时报名。
报名地点：各校学生代表处报名
中心地点：山大南路29-2号山大鲁能科技大厦A座409室
中心电话：58975432（早9：00—晚5：30）
山东省企业培训考试中心
二○一○年一月十五日
]]>