前段时间写的一个投票程序
整合在动网论坛里的,实现对每个回复进行投票,代码写的很烂,见笑了
<link href="../style.css" rel="stylesheet" type="text/css"> <!--＃i nclude file="conn1.asp"-->
<%
id=trim(request.querystring("userid")) username=trim(request.querystring("username")) Caption=trim(request.querystring("caption"))
come_ip = Request.Se...
一个项目中用到的数据同步实现
老板要求对每个代理商实现数据初始化,即把公司的报价数据全部导入到代理商的数据中.本来有更好的办法,不过自己最近变懒了,呵呵
chkid1.asp
<!--＃i nclude file="../inc/conn.asp"--> <!--＃i nclude file="../inc/CheckLogined.asp" -->
<% pid=trim(request.querystring("id")) id="5" Public MyArry() Public MyArry1() Public MyArry2() Public MyArry3() Public M...
用asp实现同一ID号不同数据的批量更新
<%dim nid,moneyfor i=1 to request.form("aid").countnid=replace(request.form("aid")(i),"'","")money=replace(request.form("a1")(i),"'","")conn.execute("update class3 set h_money='"&money&"' where 编号="&nid)nextconn.closeset conn=nothingresponse.write "<script language=j***ascript>alert('...
一段生成静态页的代码
<!--＃i nclude file="inc/conn.asp"--><html><head><TITLE>分页测试</TITLE><LINK href="/blog/inc/style.css" type=text/css rel=stylesheet></head>
<%strHead=strHead&"<html>"strHead=strHead&"<head>"strHead=strHead&"<TITLE>分页测试</TITLE>"strHead=strHead&"<LINK href="/blog/"style.css"" type=tex...
input获取当前时间
<style type="text/css">body { background-color: transparent; margin:0px;}.m_frameborder { border-left: 1px inset #D4D0C8; border-top: 1px inset #D4D0C8; border-right: 1px inset #FFFFFF; border-bottom: 1px inset #FFFFFF; width: 70px; height: 19px; background-color: transparent; overflow: hidden; t...
ASP二级联动菜单
js部分
<script language = "JavaScript"> sall=new Array();<%Dim ii=0set rs=server.createobject("adodb.recordset")sql="select * from t_smallclass"rs.open sql,conn,1,1do while not rs.eof%>sall[<%=i%>]=new Array("<%=rs("classname")%>","<%=rs("c_id")%>","<%=rs("id")%>");<%i=i+1rs.movenextlooprs.closese...
2007-03-06 21:36 |
阅读 18099 次 |
评论 0 条
控制submit可见
<input type="radio" name="r1" onclick="s1.disabled=!checked"><input type="submit" name="s1" disabled>
通过动网论坛帐号登陆到三峡新闻系统中
本来新闻系统中有独立的用户管理数据库，后来用户需要直接采用论坛帐号直接登陆．所以就加了个验证.conn.asp里直接连接动网论坛的数据库．代码不是很复杂，主要是一个思路.根据这个原理可以做简单的网站整合．
<!--#include file="md5.asp"--><% dim sql dim rs dim username dim password dim access access=request.Form("access") username=trim(request.Form("username")) password=md5(trim(Request.Form("passwo...
关于动网的一点研究（设置了可以查看其他人发布的主题
前几天搞一个文学网站在线投稿也被这个问题困住了,本来想单独做投稿系统,但是老板要求直接做在论坛里作为版块.
于是修改了一下
最终在dispbbs.asp文件里找到了修改办法.
在Sub Chk_Topic_Err()函数里去掉第二行的
If Dvbbs.GroupSetting(2)="0" Then Dvbbs.AddErrcode(31)
在Sub Chk_Topic_Err()函数体末尾加上一句
If Dvbbs.GroupSetting(2)="0" and PostUserName <> Dvbbs.UserSession.documentElement.sele...
文章归档
最新评论