效果:比如在第4行后面插入“我是阿会楠”,则结果为:
1
2
3
4
我是阿会楠
5
6
7
8
9
目录下必须有“7.txt"这个文本文件,另外其实现方法可能不是最好的,大家看代码如果有新的方法,记得告诉我哦!
using System
using System.Data
using System.Configuration
using System.Web
using System.Web.Security
using System.Web.UI
using System.Web.UI.WebControls
using System.Web.UI.WebControls.WebParts
using System.Web.UI.HtmlControls
using System.IO
using System.Text
public partial class _Default : System.Web.UI.Page
{
protected void Page_Load(object sender, EventArgs e)
{
string Path = Server.MapPath("7.txt")
string str = "我是阿会楠"
insertStr(Path,str,4)
}
public void insertStr(string Path,string str,int n)
{
string strLineStart = ""
string strLineEnd = ""
string strLineEnd2 = ""
string strLine = ""
try
{
//实例化一个StreamReader对象,并申明编码为GB2312
StreamReader sr = new StreamReader(Path, Encoding.GetEncoding("GB2312"))
//读取插入前的数据
for (int i = 0i <ni++)
{
strLineStart += sr.ReadLine() + "\r\n"
}
//后面的数据
while (strLineEnd != null)
{
strLineEnd = sr.ReadLine()
strLineEnd2 += strLineEnd + "\r\n"
}
strLine = strLineStart + str + "\r\n" + strLineEnd2
//关闭
sr.Dispose()
sr.Close()
StreamWriter sw = new StreamWriter(Path, false, Encoding.GetEncoding("GB2312"))
sw.WriteLine(strLine)
//关闭
sw.Flush()
sw.Dispose()
sw.Close()
}
catch
{
}
}
}
一般都是在尾部追加的。头部的话貌似没有直接可用的喊声。方法的话,可以先把txt里面的内容读出来存在一个string变量里面,例如b。然后把你需要的写入的字符例如b,最后把b+a重新写入文件里面。asp是Active Server Pages的简称。它本身就是动态服务器页面。ASP需要IIS来解释执行的,当你的表单提交的时候,服务器端的ASP文件就可以接收参数,进行数据 *** 作或保存数据库,大概流程是
1,展示表单,供用户提交数据
2,客端检查数据的准确性
3,服务器端接收参数(request.form("表单控件的名称"))
4, 服务器端检查数据准确性
5,数据处理,保存数据库处理
6,提示用户提交成功
例子:
前台页:test.html
<form action="asptest.asp" method="post" id="MyForm" name="MyForm">
<input type="text" name="username" />
<input type="submit" value="提交" />
</form>
asp页:asptest.asp
<%
dim name
name=trim(request.form("name"))
if name&""="" then
response.write "用户名不能为空!"
response.end
end if
dim ConnStr
'以下参数,为sql的参数,请修改成你的
ConnStr="driver={sql server}server=" &MsSql_LocalName &"uid=" &MsSql_Username &"password=" &MsSql_Password &"database=" &MsSql_DbName &""
On Error Resume Next
Set conn = Server.CreateObject("ADODB.Connection")
'response.write connstr
conn.open ConnStr
If Err Then
err.Clear
Set Conn = Nothing
Response.Write "数据库连接出错,请检查连接字串。"&Err.Description
Response.End
End If
'保存到数据里面
conn.execute("insert into user (name) values ('"&name&"')")'user为储存数据的表名
response.write "数据保存成功!"
conn.close
set conn=nothing
%>
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)